Private Sub Form_Load ()

Dim Instring As String
' Använd COM1.
MSComm1.CommPort = 1

MSComm1.Settings = "9600,N,8,1"

MSComm1.InputLen = 0
'Öppna porten.
MSComm1.PortOpen = True
' Sänd ett kommando till modemet.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
' Modemet svarar med "OK".
' Vänta på att data skickas tillbaka genom COM-porten
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)

' Stäng serieporten.
MSComm1.PortOpen = False
End Sub