Module Module1
 
    Sub Main()
 
        Do While 1
 
            Dim sCommand As String = Console.ReadLine()
 
            Select Case sCommand.ToUpper
 
                Case "EXIT"
                    End
                Case "HELP"
                    Console.Write("Hilfe kommt." & vbCrLf)
                Case Else
                    Console.Write("Unbekannter Befehl: {0}", sCommand & vbCrLf)
 
            End Select
 
        Loop
 
    End Sub
 
End Module