Hi! used AT commands for sending text using huawei modem. Please see sample below.
Private Sub subSendMessage(ByVal strMobileNo As String, ByVal strMessage As String)
rsPort.Open()
With rsPort
.ReceivedBytesThreshold = 1
.DtrEnable = True
.Write("AT" & vbCrLf)
.Write("AT+CMGF=1" & vbCrLf) 'Modem Text Mode
.Write("AT+CMGS=" & Chr(34) & strMobileNo & Chr(34) & vbCrLf)
.Write(strMessage & Chr(26))
.DtrEnable = False
End With
rsPort.Close()
End Sub