Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim mystring as string = nothing

        ' writreline("please enter a string")

        myString = console.readline()

        Select case myString

            Case "hello"

                console.writeline("goodbye")

            Case "goodbye"

                console.Writeline("hello")

            Case "finishing"

                console.WriteLine("boat")

            Case Else

                console.WriteLine("I don't know what are you talking about")

        End select

​

        console.ReadLine()

    End Sub

End Module

​