With comScanner
        .CommPort = 1 'txtScanner(1).Text
        .Settings = txtScanner(0).Text
        If .PortOpen = False Then
            .PortOpen = True
            .RThreshold = 1
            .SThreshold = 1
            .InputLen = 0
        End If
    End With

Private Sub comScanner_OnComm()
    Dim InString   As String
    txtScannerString.Text = ""
    Call All_Elements_Clear_For_New
    Select Case comScanner.CommEvent
        Case comOverrun: MsgBox "Datenverlust"
        Case comRxOver: MsgBox "Datenverlust"
        Case comEvReceive
            comScanner.InputLen = 20
            comScanner.InputMode = comInputModeText
            InString$ = comScanner.Input
    End Select
    txtScannerString.Text = InString$
    Dim i As Integer
    Dim dummy As String
    dummy = ""
    For i = 1 To Len(txtScannerString.Text)
        If IsNumeric(Mid(txtScannerString.Text, i, 1)) = True Then
            dummy = dummy & Mid(txtScannerString.Text, i, 1)
        ElseIf Mid(txtScannerString.Text, i, 1) = "B" Then
            dummy = dummy & Mid(txtScannerString.Text, i, 1)
        ElseIf Mid(txtScannerString.Text, i, 1) = "L" Then
            dummy = dummy & Mid(txtScannerString.Text, i, 1)
        End If
    Next i
    txtScannerString.Text = dummy
    comScanner.InBufferCount = 0
    Call cmdManuell_Click(0)
End Sub