Private Sub cmdGewicht_Click()
    
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.CommPort = True
    MSComm1.Output = "Befehlder Waage " & Chr(13) ' Zwingender Enter am Ende oder ?
    
    Response = ""
    Do
        Response = Response + FrmGewicht.COM1.Input
        sHilfe = Right$(Response, 1)
    Loop While sHilfe <> Chr$(13)
 
End Sub