Private Sub MSComm1_OnComm()
    Dim sBuffer As String
    Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive
            sBuffer = MSComm1.Input
            sBuffer = Replace(sBuffer, Chr(10), "")        
            'alle "0A"-Zeichen löschen
            sBuffer = Replace(sBuffer, Chr(13), vbCrLf)    
            'und alle "0D"-Zeichen mit einem sauberen vbCRLF ersetzen und in
            'eine Textbox schreiben
            printText (sBuffer)                                
    End Select
End Sub

Sub printText(sText As String)
    Form1.TXT_AUSGABE.SelStart = Len(Form1.TXT_AUSGABE.Text)
    Form1.TXT_AUSGABE.SelText = sText
End Sub

Dim sZeile() As String
Dim i as Long
sZeile=Split(Form1.TXT_AUSGABE.Text,vbCrLf)
For i =0 to UBound(sZeile)
    Debug.Print sZeile(i)
Next i