شماره گیری با مودم توسط ویژوال بیسیک :



MsComm1.CommPort = "3"

If MsComm1.PortOpen = False Then

    MsComm1.PortOpen = True 

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

MsComm1.Output = "ATP" & "2518085" & vbCrlf

End If