Dim ModemBuffer as String
 
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
 
MSComm1.Output = "ATV1X4&d2" & Chr$(13)
' Modemantwort im Klartext zurückgeben. X4 ist für Betrieb an einer 
' Direktleitung.
' X3 für Betrieb an einer Nebenstelle.
 
Do
      DoEvents
      ModemBuffer = ModemBuffer & MSComm1.Input
Loop Until InStr(ModemBuffer, "RING" & vbCRLF)

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control