Imports System

Public Module Module1

    Public Sub Main()

        Dim name as string

        Console.WriteLine("Hello what is your name")

        name = Console.readline()

        Console.Writeline("Welcome " & name & " Hello")

        Dim sport as string

        Console.Writeline("What sport do you like")

        sport = Console.ReadLine()

        Console.WriteLine("Your sport " & "is nice")

        Dim Basketball as string

        Console.WriteLine("What Basketball team do you support")

        Basketball  =  Console.ReadLine()

        Console.Writeline("Your Basketball Team " & "is trash")

        dim number as integer

        number = 18

        if number = 18 then

            Console.WriteLine(" You are are'nt you " & number)

        end if

​

    End Sub

End Module