...
    Case comEvReceive
      'Eingangsdaten auslesen und verarbeiten
      strEingang = MSComm1.Input
      intLen = Len(strEingang)
      Do Until boolOK
        strEingang = strEingang & MSComm1.Input
          Debug.Print strEingang; " | " & MSComm1.InBufferCount & " | " & _
            MSComm1.InBufferSize
          If intLen = Len(strEingang) And MSComm1.InBufferCount = 0 Then
            boolOK = True
          Else
            intLen = Len(strEingang)
          End If
      Loop
      If m_bWriteLog = True Then
        Call Write_LogFile("MSComm1_OnComm: Ereignis = comEvReceive;" & _
          "Eingangsdaten = " & strEingang)
      End If
      Call HandleInput(strEingang)
end select