Private Sub MSComm1_OnComm()
On Error GoTo 0
   MSComm1.Settings = "9600,n,8,1" 'Daten des Modems eintragen
   MSComm1.CommPort = 3 '1 = COM1
   MSComm1.PortOpen = True 'COM Port öffnen
   MSComm1.Output = "ATDT " & Telenr & Chr(13) 'Wählen...
   MSComm1.PortOpen = False 'COM Port schließen
   Exit Sub
0  MsgBox "Fehler bei der Verbindung!"
 
End Sub