On Error Goto errr:
port = 1 PortinG: MSComm1.CommPort = port MSComm1.PortOpen = True Form1.MSComm1.Settings = "9600,N,8,1" MSComm1.Output = "AT" + Chr$(13) x = 1 Do: DoEvents x = x + 1 If x = 1000 Then MSComm1.Output = "AT" + Chr$(13) If x = 2000 Then MSComm1.Output = "AT" + Chr$(13) If x = 3000 Then MSComm1.Output = "AT" + Chr$(13) If x = 4000 Then MSComm1.Output = "AT" + Chr$(13) If x = 5000 Then MSComm1.Output = "AT" + Chr$(13) If x = 6000 Then MSComm1.Output = "AT" + Chr$(13) If x = 7000 Then MSComm1.PortOpen = False port = port + 1 Goto PortinG: If MSComm1.CommPort >= 5 Then errr: MsgBox "Can't Find Modem!" Goto done: End If End If Loop Until MSComm1.InBufferCount >= 2 instring = MSComm1.Input MSComm1.PortOpen = False Text1.Text = MSComm1.CommPort & instring MsgBox "Modem Found On Comm" & port |