Module Module1

    Private WithEvents serialport1 As New SerialPort
    Dim strcmd As String = Nothing
    dim 

    Sub Main()
        Dim welcome As String = "Welcome to Introl Design's Serial Port Console Application" & vbLf & "Copyright 2007 Introl Design, Inc." & vbLf & vbLf
        Console.WriteLine(welcome)
        strcmd = Console.ReadLine.ToString.ToUpper
        Do While strcmd <> "EXIT"
            Select Case strcmd
                Case "SEND"
                    send(strcmd)
                Case "HELLO"
                    Console.WriteLine("Hi There!")
                Case "CLS"
                    Console.Clear()
                Case Else
                    Console.WriteLine("Invalid Command")
            End Select
            strcmd = Console.ReadLine.ToString.ToUpper
        Loop
    End Sub
    Private Sub send(ByVal cmd As String)
        Console.WriteLine("gOOD JOB")
    End Sub
End Module