Добрый день! Помогите разобраться
Написал код для проверки качества соединения модема
Private Sub Command1_Click()
Modem.Output = "ATDPxxxxxxxx" & Chr$(13)
End Sub

Private Sub Command2_Click()
Modem.Output = "+++" & Chr$(13)
End Sub

Private Sub Command3_Click()
Modem.Output = "AT#E1" & Chr$(13)
End Sub

''E-mail: absoft@mail.natm.ru
Private Sub Form_Load()
On Error GoTo ELine
Modem.CommPort = 1
Modem.Settings = "115200,N,8,1"
Modem.InputLen = 0
Modem.PortOpen = True
Exit Sub
ELine:
Inp = Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
On errir GoTo ErLine
Modem.PortOpen = False
Exit Sub
ErLine:
Debug.Print Err.Description
End Sub


Private Sub Send_Click()
Inp.Text = ""
Modem.Output = boxsend.Text & Chr$(13)
End Sub

Private Sub timer_Timer()
On Error GoTo NoMem
Dim InString As String
If Modem.InBufferCount > 0 Then
''Inp.Text = Modem.InBufferCount
Inp.SelStart = Len(Inp)
Inp.SelText = Modem.Input
End If
Exit Sub
NoMem:
Inp.Text = ""
End Sub
после нажатия кнопки command1 ,я должен получить сообщение от удаленного модема
connect и.т.д и далее login чтобы перейти в коммандный режим +++
но я не получаю эту строку и ссответственно +++ не работает.

Контрол

MSComm-контрол

Private Sub Combo1_Click()
boxSend.Text = Combo1.Text
End Sub

Private Sub Command1_Click()
Modem.Output = "+++"
End Sub

Private Sub Command2_Click()
Modem.Output = "AT#E1" & Chr$(13)

End Sub

'E-mail: absoft@mail.natm.ru
Private Sub Form_Load()
On Error GoTo ELine
Modem.CommPort = 1
Modem.DTREnable = True
Modem.Handshaking = 2
Modem.InBufferSize = 1024
Modem.InputLen = 0
Modem.InputMode = 0
Modem.NullDiscard = True
Modem.OutBufferSize = 512
Modem.ParityReplace = "?"
Modem.RThreshold = 1
Modem.RTSEnable = True
Modem.Settings = "115200,n,8,1"
Modem.SThreshold = 1
Modem.PortOpen = True
Exit Sub
ELine:
Inp = Err.Description
End Sub

Private Sub Form_Unload(Cancel As Integer)
On errir GoTo ErLine
Modem.PortOpen = False
Exit Sub
ErLine:
Debug.Print Err.Description
End Sub

Private Sub Send_Click()
Modem.Output = boxSend.Text & Chr$(13)
End Sub

Private Sub timer_Timer()
On Error GoTo NoMem
Dim InString As String
If Modem.InBufferCount > 0 Then
'Inp.Text = Modem.InBufferCount
Inp.SelStart = Len(Inp)
Inp.SelText = Modem.Input
End If
Exit Sub
NoMem:
Inp.Text = ""
End Sub