Imports System

Public Module Module1

    Public Sub Main()

        dim anwser as string 

        Console.WriteLine(" sub to archie on yt")

        Console.WriteLine(" hello i am a very rich person but need 100 dollers ")

        Console.WriteLine(" to verify my bank account i will send you millons once it is complete ")

        Console.WriteLine("what is the numbers on your credit card ")

        anwser = console.readline()

        if anwser="no" then

            console.writeline("please enter valid number")

            anwser = console.readline()

        else

        Console.WriteLine("what is the expiry date ")

        end if

        anwser = console.readline()

        Console.WriteLine("and the 3 numbers on the back ")

        anwser = console.readline()

        Console.WriteLine("thank you i will send you the money shortly  ")

    End Sub

End Module