отправка смс с помощью D-LINK dwm - модем 156 gsm в visual basic 6.0

Question

Добрый день, мэм / сэр

Я использую GSM-модем D-LINK DWM - 156 для отправки смс в vb 6.0, но это не работает. Помогите мне, пожалуйста. вот мой код

Private Sub cmdSend_Click()
On Error Resume Next
    With objcom
        .CommPort = txtPort.Text
        .Settings = "9600,N,8,1"
        .RTSEnable = False
        .DTREnable = False
        .RThreshold = 1
        .SThreshold = 0
        .PortOpen = True
        .Output = "AT" & vbCrLf
        .Output = "AT+CMGF=1" & vbCrLf
        .Output = "AT+CMGS=" & Chr(34) & Trim(txtNumber) & Chr(34) & vbCrLf
        .Output = Trim(txtMsg) & Chr(26)
        Sleep 5000
        .PortOpen = True
    End With
MsgBox ("Message Sent!")
End Sub

спасибо заранее.