Public Sub alarm2()
    Dim lDeviceCount As Long
 
    Set asObj = CreateObject("ActiveXperts.SMSC")
 
    lDeviceCount = asObj.GetDeviceCount()  ' Get number of  devices
 
    For i = 0 To lDeviceCount - 1
        SMSAlarm.List_Modem.AddItem (asObj.GetDevice(i)) ' Add devices to list 
        ' box
    Next
 
    asObj.Device = asObj.GetDevice(6) ' comboDevice.Text
    asObj.LogFile = "C:\log.txt" 'textLogfile.Text
    asObj.DeviceSpeed = 0               ' use default speed
 
    'asObj.DeviceSettings = "Default"
    asObj.Sender = "01601234567" 'textSender.Text
    asObj.Recipient = "0160333333" 'textRecipient.Text
    asObj.MessageText = "TESTALARMIERUNG" 'textMessage.Text
    asObj.SendMessage (asMESSAGE_GSM)
    ' Display result
    If (asObj.LastError = asERR_SUCCESS) Then
        MsgBox "SUCCESS"
    Else
        MsgBox "ERROR " & asObj.LastError & " (" & asObj.GetErrorDescription( _
          asObj.LastError) & ")"
    End If
 
End Sub

Public Sub alarmieren()
 
    Dim strSend As String
 
    strSend1 = "AT+CMGS=" & Chr(34) & "01601234567" & Chr(34) & Chr(13)
    strSend2 = "TESTALARMIERUNG" & Chr(27)
 
    Delay 1
    Call fnOpenPort
 
    SMSAlarm.MSComm1.Output = "AT+CMGF=1" & Chr$(13)
 
    Delay 1
 
    SMSAlarm.MSComm1.Output = strSend1
    Delay 1
    SMSAlarm.MSComm1.Output = strSend2
 
    Delay 1
 
    SMSAlarm.MSComm1.Output = "ATH" + vbCr
 
    SMSAlarm.MSComm1.PortOpen = False
 
End Sub
 
Private Function fnOpenPort()
    SMSAlarm.MSComm1.CommPort = 16
    SMSAlarm.MSComm1.Settings = "9600,N,8,1"
    SMSAlarm.MSComm1.Handshaking = 2
 
    On Error Resume Next
 
    SMSAlarm.MSComm1.PortOpen = True
    If Err Then
        MsgBox "Modem not ready on COM 1"
    End If
 
End Function