Public Shared Comm1 As AxMSCommLib.AxMSComm
Public Shared Sub hello(ByVal port As String)
Comm1 = New AxMSCommLib.AxMSComm
            If port = "Com1" Then
                Comm1.CommPort = 1
            Else
                If port = "Com2" Then
                    Comm1.CommPort = 2
                Else
                    MsgBox("Ungültiger ComPort", MsgBoxStyle.Critical, _
                      "ACHTUNG!!!")
                    Exit Sub
                End If
            End If
            Comm1.Settings = "2400,N,8,1"
            Comm1.InputLen = 0
            Comm1.PortOpen = True
        End Sub