Planet Source Code Jumbo …e CD Visual Basic 1 to 7/5_2007-2008.ISO/data/Zips/Sms_Sender2097221132008.psc/SmsSender/GSM.ctl

Text File | 2008-01-13 | 54KB | 1,361 lines

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.UserControl GSM
   ClientHeight    =   510
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   495
   ControlContainer=   -1  'True
   DataBindingBehavior=   1  'vbSimpleBound
   DataSourceBehavior=   1  'vbDataSource
   EditAtDesignTime=   -1  'True
   InvisibleAtRuntime=   -1  'True
   Picture         =   "GSM.ctx":0000
   ScaleHeight     =   510
   ScaleWidth      =   495
   ToolboxBitmap   =   "GSM.ctx":0442
   Begin MSCommLib.MSComm MSComm
      Left            =   120
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
End
Attribute VB_Name = "GSM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mSpeed As String
Event Response(ByVal Result As String)
Private mCommPort As Integer
Private mPortOpen As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const LVSCW_AUTOSIZE_USEHEADER As Long = -2
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30)
Private m_Buffer As String
Private mLogFile As String
Private mReadDelete As String
Private mWriteSend As String
Private mReceived As String
Private mReceivedUsed As Long
Private mReceivedCapacity As Long
Private mReadDeleteUsed As Long
Private mReadDeleteCapacity As Long
Private mWriteSendUsed As String
Private mWriteSendCapacity As String
Private mpbMemory As String
Private mpbCapacity As Long
Private mpbUsed As Long
Private resultPos As Long
'>>>>>>>>>>> obtained from planet source code to receive
'>>>>>>>>>>> pdu messages
Private mvarnoSCA As String
Private mvarnoOA As String
Private mvarFO As String
Private mvarDCS As String
Private mvarSCTS_Tgl As String
Private mvarSCTS_Jam As String
Private mvarSCTS_Tgl_A As String
Private mvarSCTS_Jam_A As String
Private mvarIndexSend As String
Private mvarUDL As String
'>>>>>>>>>>>>>
Public Enum FindWhere
    Search_Text = 0
    Search_SubItem = 1
    Search_Tag = 2
End Enum
Public Enum SearchType
    Search_Partial = 1
    Search_Whole = 0
End Enum
Public Enum SmsMemoryStorageEnum
    SimMemory = 0
    MobileEquipmentMemory = 1
    BothMemories = 2
    ReadMemorySetting = 3
    BroadcastMessageStorage = 4
    StatusReportStorage = 5
    TerminalAdapterStorage = 6
End Enum
Public Enum MessageFormatEnum
    TextFormat = 1
    PDUFormat = 0
    ReadFormat = 2
End Enum
Public Enum EchoEnum
    EchoOff = 0
    EchoOn = 1
End Enum
Public Enum PhoneBookMemoryStorageEnum
    SimPhoneBook = 0
    MobileEquipmentPhoneBook = 1
    BothPhoneBooks = 2
    ReadPhoneBookSetting = 3
    SupportedMemory = 4
End Enum
Public Enum CentreNumberEnum
    SetCentreNumber = 0
    ReadCentreNumber = 1
End Enum
Public Enum SmsTypesEnum
    RecRead = 0
    RecUnread = 1
    Rec = 2
    StoSent = 3
    StoUnsent = 4
    All = 5
End Enum
Public Enum PDUFlashMessageTypeEnum
    ' flash = 00, non flash = F0
    NonFlash = 0
    Flash = 1
End Enum
Public Enum PDUDisplayReportSMSEnum
    ' yes = 31, no = 11
    YesReport = 1
    NoReport = 0
End Enum
Public Enum PDULimitPeriodOfDeliveryEnum
    ' 1=1hour,2=12hour,3=1day(default),4=2day,5=1week
    OneHour = 1
    TwelveHours = 2
    OneDay = 3
    TwoDays = 4
    OneWeek = 5
End Enum
Public Enum PhoneBookMemoryToFormatEnum
    SimPhoneBookFormat = 0
    MobileEquipmentPhoneBookFormat = 1
End Enum
Public Enum WriteLocationEnum
    WriteRecRead = 0
    WriteRecUnread = 1
    WriteStoSent = 3
    WriteStoUnsent = 4
End Enum
Public Enum ModemTypeEnum
    DataCard = 0
    Cellphone = 1
End Enum
Private nModemType As ModemTypeEnum
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Property Get CommPort() As Integer
    On Error Resume Next
    ' get the port used by the modem
    CommPort = mCommPort
    Err.Clear
End Property
Public Property Let CommPort(nCommPort As Integer)
    On Error Resume Next
    ' set the port to use for the modem connection
    MSComm.CommPort = nCommPort
    mCommPort = nCommPort
    PropertyChanged "CommPort"
    Err.Clear
End Property
Public Property Get ModemType() As ModemTypeEnum
    On Error Resume Next
    ' get the modem type
    ModemType = nModemType
    Err.Clear
End Property
Public Property Let ModemType(newModemType As ModemTypeEnum)
    On Error Resume Next
    ' set the modem type
    nModemType = newModemType
    If nModemType = Cellphone Then
        resultPos = 3
    ElseIf nModemType = DataCard Then
        resultPos = 2
    End If
    PropertyChanged "ModemType"
    Err.Clear
End Property
Private Function FixSmsDate(sDate As String) As String
    On Error Resume Next
    Dim syyyy As String
    Dim smm As String
    Dim sdd As String
    syyyy = MvField(sDate, 1, "/")
    smm = MvField(sDate, 2, "/")
    sdd = MvField(sDate, 3, "/")
    sdd = sdd & "/" & smm & "/" & syyyy
    FixSmsDate = Format$(sdd, "dd/mm/yyyy")
    Err.Clear
End Function
Public Property Get LogFile() As String
    On Error Resume Next
    ' get the path of the log file
    LogFile = mLogFile
    Err.Clear
End Property
Public Property Let LogFile(nLogFile As String)
    On Error Resume Next
    ' set the path of the log file
    mLogFile = nLogFile
    PropertyChanged "LogFile"
    Err.Clear
End Property
Public Property Get Settings() As String
    On Error Resume Next
    ' get the settings of the modem
    Settings = MSComm.Settings
    Err.Clear
End Property
Public Property Get VM() As String
    On Error Resume Next
    ' value delimiter
    VM = Chr$(253)
    Err.Clear
End Property
Public Property Get FM() As String
    On Error Resume Next
    ' value delimiter
    FM = Chr$(254)
    Err.Clear
End Property
Public Property Get Quote() As String
    On Error Resume Next
    ' value double quote
    Quote = Chr$(34)
    Err.Clear
End Property
Public Property Get Speed() As String
    On Error Resume Next
    ' get the speed of the modem
    Speed = mSpeed
    Err.Clear
End Property
Public Property Let Speed(nSpeed As String)
    On Error Resume Next
    ' set the speed of the modem, this will change settings
    mSpeed = nSpeed
    MSComm.Settings = nSpeed & ",n,8,1"
    PropertyChanged "Speed"
    PropertyChanged "Settings"
    Err.Clear
End Property
Public Property Get PortOpen() As Boolean
    On Error Resume Next
    ' get the status of the port
    PortOpen = mPortOpen
    Err.Clear
End Property
Public Property Let PortOpen(nPortOpen As Boolean)
    On Error GoTo ErrMsg
    ' set the status of the port
    MSComm.PortOpen = nPortOpen
    mPortOpen = nPortOpen
    PropertyChanged "PortOpen"
    Err.Clear
    Exit Property
ErrMsg:
    RaiseEvent Response(Err.Description)
    Err.Clear
End Property
Private Sub MSComm_OnComm()
    On Error Resume Next
    ' read contents of the data sent by modem
    Select Case MSComm.CommEvent
    Case comEvReceive
        m_Buffer = MSComm.Input
    End Select
    Err.Clear
End Sub
Public Function Connect(MyPort As String, MySpeed As String) As String
    On Error Resume Next
    ' connect to the gsm modem by specifying the port number and speed of the modem
    If MSComm.PortOpen = True Then MSComm.PortOpen = False
    Me.CommPort = Val(MyPort)
    Me.Speed = MySpeed
    MSComm.DTREnable = True
    MSComm.RTSEnable = True
    MSComm.RThreshold = 1
    MSComm.InBufferSize = 1024
    Me.PortOpen = True
    Me.Echo EchoOn
    Connect = IIf(Me.PortOpen = True, "OK", "ERROR")
    Err.Clear
End Function
Public Property Get ManufacturerIdentification() As String
    On Error Resume Next
    ' get the gadget manufacturer identification
    ManufacturerIdentification = Request("AT+GMI", , resultPos, vbCrLf)
    RaiseEvent Response(ManufacturerIdentification)
    Err.Clear
End Property
Public Property Get ModemSerialNumber() As String
    On Error Resume Next
    ' get the gadget modem serial/imei number
    ModemSerialNumber = Request("AT+GSN", , resultPos, vbCrLf)
    RaiseEvent Response(ModemSerialNumber)
    Err.Clear
End Property
Public Property Get RevisionIdentification() As String
    On Error Resume Next
    ' get the gadget revision identification
    Dim mAnswer As String
    mAnswer = Request("AT+GMR", , resultPos, vbCrLf)
    RevisionIdentification = MvField(mAnswer, 2, ":")
    RaiseEvent Response(RevisionIdentification)
    Err.Clear
End Property
Public Property Get ModelIdentification() As String
    On Error Resume Next
    ' get the gadget model indentification number
    ModelIdentification = Request("AT+GMM", , resultPos, vbCrLf)
    RaiseEvent Response(ModelIdentification)
    Err.Clear
End Property
Public Function SMS_NewMessageIndicate(bSet As Boolean) As String
    On Error Resume Next
    ' tell the gadget to notify computer of new sms received
    If bSet = True Then
        SMS_NewMessageIndicate = Request("AT+CNMI=1,1,0,0,0", , resultPos, vbCrLf)
    Else
        SMS_NewMessageIndicate = Request("AT+CNMI=0,0,0,0,0", , resultPos, vbCrLf)
    End If
    RaiseEvent Response(SMS_NewMessageIndicate)
    Err.Clear
End Function
Public Property Get SignalQualityMeasure() As String
    On Error Resume Next
    ' read the signal of the phone and return it as a percentage
    ' the maximum signal is 31
    Dim mAnswer As String
    mAnswer = Request("AT+CSQ", , resultPos, vbCrLf)
    mAnswer = MvField(mAnswer, 2, ":")
    mAnswer = MvField(mAnswer, 1, ",")
    mAnswer = (Val(mAnswer) / 31) * 100
    SignalQualityMeasure = Round(mAnswer, 0)
    RaiseEvent Response(SignalQualityMeasure)
    Err.Clear
End Property
Public Function PhoneBook_MemoryStorage(PhoneBookSelect As PhoneBookMemoryStorageEnum) As String
    On Error Resume Next
    ' select gadget phonebook memory
    Dim mAnswer As String
    Select Case PhoneBookSelect
    Case SimPhoneBook
        mAnswer = Request("AT+CPBS=" & Me.Quote & "SM" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = Request("AT+CPBS?", , resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
        mpbCapacity = MvField(mAnswer, 3, ",")
        mpbUsed = MvField(mAnswer, 2, ",")
        mpbMemory = MvField(mAnswer, 1, ",")
    Case MobileEquipmentPhoneBook
        mAnswer = Request("AT+CPBS=" & Me.Quote & "ME" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = Request("AT+CPBS?", , resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
        mpbCapacity = MvField(mAnswer, 3, ",")
        mpbUsed = MvField(mAnswer, 2, ",")
        mpbMemory = MvField(mAnswer, 1, ",")
    Case BothPhoneBooks
        mAnswer = Request("AT+CPBS=" & Me.Quote & "MT" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = Request("AT+CPBS?", , resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
        mpbCapacity = MvField(mAnswer, 3, ",")
        mpbUsed = MvField(mAnswer, 2, ",")
        mpbMemory = MvField(mAnswer, 1, ",")
    Case ReadPhoneBookSetting
        mAnswer = Request("AT+CPBS?", , resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
        mpbCapacity = MvField(mAnswer, 3, ",")
        mpbUsed = MvField(mAnswer, 2, ",")
        mpbMemory = MvField(mAnswer, 1, ",")
    Case SupportedMemory = 4
        'mAnswer = Request("AT+CPBS=?", , resultPos, vbCrLf)
        mAnswer = Request("AT+CPBS=?", , , vbCrLf)
    End Select
    PhoneBook_MemoryStorage = mAnswer
    RaiseEvent Response(PhoneBook_MemoryStorage)
    Err.Clear
End Function
Public Function PhoneBook_ReadEntry(Location As Long) As String
    On Error Resume Next
    ' read a specified phonebook entry using a location
    ' an empty location returns blank
    Dim mAnswer As String
    Dim mLoc As String
    Dim mNum As String
    Dim mNam As String
    mAnswer = Request("AT+CPBR=" & Location, , resultPos, vbCrLf)
    mAnswer = Replace$(mAnswer, Me.Quote, "")
    mAnswer = Trim$(Replace$(mAnswer, "+CPBR:", ""))
    Select Case LCase$(mAnswer)
    Case "not found", "+cme error: not found", ""
        mAnswer = ""
    Case Else
        mLoc = MvField(mAnswer, 1, ",")
        mNum = MvField(mAnswer, 2, ",")
        mNam = MvField(mAnswer, 4, ",")
        mAnswer = mLoc & "," & mNum & "," & mNam
    End Select
    PhoneBook_ReadEntry = mAnswer
    RaiseEvent Response(PhoneBook_ReadEntry)
    Err.Clear
End Function
Public Function PhoneBook_FindEntry(FullName As String) As String
    On Error Resume Next
    ' search for a phonebook entry and return result
    Dim mAnswer As String
    mAnswer = Request("AT+CPBF=" & Me.Quote & FullName & Me.Quote, , resultPos, vbCrLf)
    mAnswer = Replace$(mAnswer, Me.Quote, "")
    mAnswer = Trim$(Replace$(mAnswer, "+CPBF:", ""))
    Select Case LCase$(mAnswer)
    Case "not found", "", "+cme error: not found"
        mAnswer = "0"
    End Select
    PhoneBook_FindEntry = mAnswer
    RaiseEvent Response(PhoneBook_FindEntry)
    Err.Clear
End Function
Public Function PhoneBook_EntryExists(ByVal FullName As String, ByVal CellNo As String) As String
    On Error Resume Next
    ' search for a phonebook entry for the name and cellphone and return the location
    ' a zero location means not found
    Dim mAnswer As String
    Dim mPhone As String
    Dim mIndex As String
    mAnswer = Request("AT+CPBF=" & Me.Quote & FullName & Me.Quote, , resultPos, vbCrLf)
    mAnswer = Replace$(mAnswer, Me.Quote, "")
    mAnswer = Trim$(Replace$(mAnswer, "+CPBF:", ""))
    Select Case LCase$(mAnswer)
    Case "not found", "", "+cme error: not found"
        PhoneBook_EntryExists = "0"
    Case Else
        mIndex = MvField(mAnswer, 1, ",")
        mPhone = MvField(mAnswer, 2, ",")
        If mPhone = CellNo Then
            PhoneBook_EntryExists = mIndex
        Else
            PhoneBook_EntryExists = "0"
        End If
    End Select
    RaiseEvent Response(PhoneBook_EntryExists)
    Err.Clear
End Function
Public Function PhoneBook_WriteEntry(Location As Long, ByVal CellNo As String, ByVal FullName As String) As String
    On Error Resume Next
    ' write a phonebook entry at a particular location and refresh the count
    Dim mAnswer As String
    mAnswer = "AT+CPBW=" & Location & "," & Me.Quote & CellNo & Me.Quote & ",129," & Me.Quote & FullName & Me.Quote
    mAnswer = Request(mAnswer, , resultPos, vbCrLf)
    PhoneBook_WriteEntry = mAnswer
    If mAnswer = "OK" Then Me.PhoneBook_MemoryStorage (ReadPhoneBookSetting)
    RaiseEvent Response(PhoneBook_WriteEntry)
    Err.Clear
End Function
Public Function PhoneBook_DeleteEntry(Location As Long) As String
    On Error Resume Next
    ' delete a phonebook entry using the location
    Dim mAnswer As String
    mAnswer = Request("AT+CPBW=" & Location, , resultPos, vbCrLf)
    PhoneBook_DeleteEntry = mAnswer
    RaiseEvent Response(PhoneBook_DeleteEntry)
    Err.Clear
End Function
Public Property Get PhoneBook_AvailableIndexes() As String
    On Error Resume Next
    ' get the available phonebook indexes
    Dim mAnswer As String
    mAnswer = Request("AT+CPBR=?", , resultPos, vbCrLf)
    mAnswer = MvField(mAnswer, 2, ":")
    PhoneBook_AvailableIndexes = mAnswer
    RaiseEvent Response(PhoneBook_AvailableIndexes)
    Err.Clear
End Property
Public Function Echo(EchoStatus As EchoEnum) As Boolean
    On Error Resume Next
    ' turn echo off/on, off results in less traffic
    ' echo off returns the command with the result
    Dim mAnswer As String
    Select Case EchoStatus
    Case EchoOff
        mAnswer = Request("ATE0", , resultPos, vbCrLf)
    Case EchoOn
        mAnswer = Request("ATE1", , resultPos, vbCrLf)
    End Select
    If mAnswer = "OK" Then
        Echo = True
    Else
        Echo = False
    End If
    RaiseEvent Response(Echo)
    Err.Clear
End Function
Public Function Request(ByVal strCommand As String, Optional ByVal ExpectedResult As String = "", Optional Position As Long = -1, Optional ControlChars As String = vbCrLf) As String
    On Error GoTo ErrMsg
    ' send a request to the comm port and wait for the result
    ' the result will be delimited by chr(253)
    Dim sResult As String
    If Len(LogFile) > 0 Then
        FileUpdate LogFile, Now() & ", request received " & strCommand, "a"
    End If
    MSComm.Output = strCommand & ControlChars
    sResult = WaitReply(10, ExpectedResult)
    sResult = Replace$(sResult, vbNewLine, VM)
    If Len(LogFile) > 0 Then
        FileUpdate LogFile, Now() & ", response received " & sResult, "a"
    End If
    If Position > 0 Then
        sResult = MvField(sResult, Position, VM)
    Else
        sResult = sResult
    End If
    Request = DescriptiveError(sResult)
    Err.Clear
    Exit Function
ErrMsg:
    RaiseEvent Response(Err.Description)
    Err.Clear
End Function
Private Function WaitReply(lDelay As Long, WaitString As String) As String
    On Error Resume Next
    ' wait process for a data request from the
    ' ms comm port to be finalized
    Dim x As Long
    Dim bOK As Boolean
    DoEvents
    If WaitString = "" Then
        bOK = True
        For x = 1 To lDelay
            Sleep 500
            DoEvents
        Next
    Else
        bOK = False
        For x = 1 To lDelay
            DoEvents
            If InStr(m_Buffer, WaitString) Then
                bOK = True
                Exit For
            Else
                DoEvents
                Sleep 500
                DoEvents
            End If
        Next
    End If
    If Len(m_Buffer) > 0 Then
        DoEvents
    End If
    WaitReply = m_Buffer
    Err.Clear
End Function
Private Function MvField(ByVal strValue As String, Optional ByVal PartPosition As Long = 1, Optional ByVal Delimiter As String = ",", Optional TrimValue As Boolean = True) As String
    On Error Resume Next
    ' return a substring of a string delimited by a string specified
    Dim xResult As String
    Dim xArray() As String
    Dim xSize As Long
    If Len(strValue) = 0 Then Exit Function
    If InStr(1, strValue, Delimiter) = 0 Then
        MvField = strValue
        Err.Clear
        Exit Function
    End If
    xArray = Split(strValue, Delimiter)
    Select Case PartPosition
    Case -1
        PartPosition = UBound(xArray) + 1
    Case 0
        PartPosition = 1
    End Select
    xSize = UBound(xArray)
    If xSize = 0 Then
        MvField = ""
    Else
        xResult = xArray(PartPosition - 1)
        If TrimValue = True Then
            xResult = Trim$(xResult)
        End If
        MvField = xResult
    End If
    Err.Clear
End Function
Public Sub FileUpdate(ByVal filName As String, ByVal filLines As String, Optional ByVal Wora As String = "write")
    On Error Resume Next
    ' update contents of a file by either appending / creating a new entry
    Dim iFileNum As Long
    Dim cDir As String
    cDir = FileToken(filName, "p")
    CreateNestedDirectory cDir
    iFileNum = FreeFile
    Select Case LCase$(Left$(Wora, 1))
    Case "w"
        Open filName For Output As #iFileNum
        Case "a"
            Open filName For Append As #iFileNum
            End Select
            Print #iFileNum, filLines
        Close #iFileNum
        Err.Clear
End Sub
Private Function DescriptiveError(ByVal sResult As String) As String
    On Error Resume Next
    ' return descriptive phone error code
    Select Case sResult
    Case "+CME ERROR: 0":        DescriptiveError = "Phone failure"
    Case "+CME ERROR: 1":        DescriptiveError = "No connection to phone"
    Case "+CME ERROR: 2":        DescriptiveError = "Phone adapter link reserved"
    Case "+CME ERROR: 3":        DescriptiveError = "Operation not allowed"
    Case "+CME ERROR: 4":        DescriptiveError = "Operation not supported"
    Case "+CME ERROR: 5":        DescriptiveError = "PH_SIM PIN required"
    Case "+CME ERROR: 6":        DescriptiveError = "PH_FSIM PIN required"
    Case "+CME ERROR: 7":        DescriptiveError = "PH_FSIM PUK required"
    Case "+CME ERROR: 10":        DescriptiveError = "SIM not inserted"
    Case "+CME ERROR: 11":        DescriptiveError = "SIM PIN required"
    Case "+CME ERROR: 12":        DescriptiveError = "SIM PUK required"
    Case "+CME ERROR: 13":        DescriptiveError = "SIM failure"
    Case "+CME ERROR: 14":        DescriptiveError = "SIM busy"
    Case "+CME ERROR: 15":        DescriptiveError = "SIM wrong"
    Case "+CME ERROR: 16":        DescriptiveError = "Incorrect password"
    Case "+CME ERROR: 17":        DescriptiveError = "SIM PIN2 required"
    Case "+CME ERROR: 18":        DescriptiveError = "SIM PUK2 required"
    Case "+CME ERROR: 20":        DescriptiveError = "Memory full"
    Case "+CME ERROR: 21":        DescriptiveError = "Invalid index"
    Case "+CME ERROR: 22":        DescriptiveError = "Not found"
    Case "+CME ERROR: 23":        DescriptiveError = "Memory failure"
    Case "+CME ERROR: 24":        DescriptiveError = "Text string too long"
    Case "+CME ERROR: 25":        DescriptiveError = "Invalid characters in text string"
    Case "+CME ERROR: 26":        DescriptiveError = "Dial string too long"
    Case "+CME ERROR: 27":        DescriptiveError = "Invalid characters in dial string"
    Case "+CME ERROR: 30":        DescriptiveError = "No network service"
    Case "+CME ERROR: 31":        DescriptiveError = "Network timeout"
    Case "+CME ERROR: 32":        DescriptiveError = "Network not allowed, emergency calls only"
    Case "+CME ERROR: 40":        DescriptiveError = "Network personalization PIN required"
    Case "+CME ERROR: 41":        DescriptiveError = "Network personalization PUK required"
    Case "+CME ERROR: 42":        DescriptiveError = "Network subset personalization PIN required"
    Case "+CME ERROR: 43":        DescriptiveError = "Network subset personalization PUK required"
    Case "+CME ERROR: 44":        DescriptiveError = "Service provider personalization PIN required"
    Case "+CME ERROR: 45":        DescriptiveError = "Service provider personalization PUK required"
    Case "+CME ERROR: 46":        DescriptiveError = "Corporate personalization PIN required"
    Case "+CME ERROR: 47":        DescriptiveError = "Corporate personalization PUK required"
    Case "+CME ERROR: 48":        DescriptiveError = "PH-SIM PUK required"
    Case "+CME ERROR: 100":        DescriptiveError = "Unknown error"
    Case "+CME ERROR: 103":        DescriptiveError = "Illegal MS"
    Case "+CME ERROR: 106":        DescriptiveError = "Illegal ME"
    Case "+CME ERROR: 107":        DescriptiveError = "GPRS services not allowed"
    Case "+CME ERROR: 111":        DescriptiveError = "PLMN not allowed"
    Case "+CME ERROR: 112":        DescriptiveError = "Location area not allowed"
    Case "+CME ERROR: 113":        DescriptiveError = "Roaming not allowed in this location area"
    Case "+CME ERROR: 126":        DescriptiveError = "Operation temporary not allowed"
    Case "+CME ERROR: 132":        DescriptiveError = "Service operation not supported"
    Case "+CME ERROR: 133":        DescriptiveError = "Requested service option not subscribed"
    Case "+CME ERROR: 134":        DescriptiveError = "Service option temporary out of order"
    Case "+CME ERROR: 148":        DescriptiveError = "Unspecified GPRS error"
    Case "+CME ERROR: 149":        DescriptiveError = "PDP authentication failure"
    Case "+CME ERROR: 150":        DescriptiveError = "Invalid mobile class"
    Case "+CME ERROR: 256":        DescriptiveError = "Operation temporarily not allowed"
    Case "+CME ERROR: 257":        DescriptiveError = "Call barred"
    Case "+CME ERROR: 258":        DescriptiveError = "Phone is busy"
    Case "+CME ERROR: 259":        DescriptiveError = "User abort"
    Case "+CME ERROR: 260":        DescriptiveError = "Invalid dial string"
    Case "+CME ERROR: 261":        DescriptiveError = "SS not executed"
    Case "+CME ERROR: 262":        DescriptiveError = "SIM Blocked"
    Case "+CME ERROR: 263":        DescriptiveError = "Invalid block"
    Case "+CME ERROR: 772":        DescriptiveError = "SIM powered down"
    Case "+CMS ERROR: 1": DescriptiveError = "Unassigned (unallocated) number"
    Case "+CMS ERROR: 8": DescriptiveError = "Operator determined barring"
    Case "+CMS ERROR: 10": DescriptiveError = "Call barred"
    Case "+CMS ERROR: 21": DescriptiveError = "Short message transfer rejected"
    Case "+CMS ERROR: 27": DescriptiveError = "Destination out of service"
    Case "+CMS ERROR: 28": DescriptiveError = "Unidentified subscriber"
    Case "+CMS ERROR: 29": DescriptiveError = "Facility rejected"
    Case "+CMS ERROR: 30": DescriptiveError = "Unknown subscriber"
    Case "+CMS ERROR: 38": DescriptiveError = "Network out of order"
    Case "+CMS ERROR: 41": DescriptiveError = "Temporary failure"
    Case "+CMS ERROR: 42": DescriptiveError = "Congestion"
    Case "+CMS ERROR: 47": DescriptiveError = "Resources unavailable, unspecified"
    Case "+CMS ERROR: 50": DescriptiveError = "Requested facility not subscribed"
    Case "+CMS ERROR: 69": DescriptiveError = "Requested facility not implemented"
    Case "+CMS ERROR: 81": DescriptiveError = "Invalid short message transfer reference value"
    Case "+CMS ERROR: 95": DescriptiveError = "Invalid message, unspecified"
    Case "+CMS ERROR: 96": DescriptiveError = "Invalid mandatory information"
    Case "+CMS ERROR: 97": DescriptiveError = "Message type non-existent or not implemented"
    Case "+CMS ERROR: 98": DescriptiveError = "Message not compatible with short message protocol state"
    Case "+CMS ERROR: 99": DescriptiveError = "Information element non-existent or not implemented"
    Case "+CMS ERROR: 111": DescriptiveError = "Protocol error, unspecified"
    Case "+CMS ERROR: 127": DescriptiveError = "Interworking, unspecified"
    Case "+CMS ERROR: 128": DescriptiveError = "Telematic interworking not supported"
    Case "+CMS ERROR: 129": DescriptiveError = "Short message Type 0 not supported"
    Case "+CMS ERROR: 130": DescriptiveError = "Cannot replace short message"
    Case "+CMS ERROR: 143": DescriptiveError = "Unspecified TP-PID error"
    Case "+CMS ERROR: 144": DescriptiveError = "Data coding scheme (alphabet) not supported"
    Case "+CMS ERROR: 145": DescriptiveError = "Message class not supported"
    Case "+CMS ERROR: 159": DescriptiveError = "Unspecified TP-DCS error"
    Case "+CMS ERROR: 160": DescriptiveError = "Command cannot be actioned"
    Case "+CMS ERROR: 161": DescriptiveError = "Command unsupported"
    Case "+CMS ERROR: 175": DescriptiveError = "Unspecified TP-Command error"
    Case "+CMS ERROR: 176": DescriptiveError = "TPDU not supported"
    Case "+CMS ERROR: 192": DescriptiveError = "SC busy"
    Case "+CMS ERROR: 193": DescriptiveError = "No SC subscription"
    Case "+CMS ERROR: 194": DescriptiveError = "SC system failure"
    Case "+CMS ERROR: 195": DescriptiveError = "Invalid SME address"
    Case "+CMS ERROR: 196": DescriptiveError = "Destination SME barred"
    Case "+CMS ERROR: 197": DescriptiveError = "SM Rejected-Duplicate SM"
    Case "+CMS ERROR: 198": DescriptiveError = "TP-VPF not supported"
    Case "+CMS ERROR: 199": DescriptiveError = "TP-VP not supported"
    Case "+CMS ERROR: 208": DescriptiveError = "SIM SMS storage full"
    Case "+CMS ERROR: 209": DescriptiveError = "No SMS storage capability in SIM"
    Case "+CMS ERROR: 210": DescriptiveError = "Error in MS"
    Case "+CMS ERROR: 211": DescriptiveError = "Memory Capacity Exceeded"
    Case "+CMS ERROR: 212": DescriptiveError = "SIM Application Toolkit Busy"
    Case "+CMS ERROR: 255": DescriptiveError = "Unspecified error cause"
    Case "+CMS ERROR: 300": DescriptiveError = "ME failure"
    Case "+CMS ERROR: 301": DescriptiveError = "SMS service of ME reserved"
    Case "+CMS ERROR: 302": DescriptiveError = "Operation not allowed"
    Case "+CMS ERROR: 303": DescriptiveError = "Operation not supported"
    Case "+CMS ERROR: 304": DescriptiveError = "Invalid PDU mode parameter"
    Case "+CMS ERROR: 305": DescriptiveError = "Invalid text mode parameter"
    Case "+CMS ERROR: 310": DescriptiveError = "SIM not inserted"
    Case "+CMS ERROR: 311": DescriptiveError = "SIM PIN required"
    Case "+CMS ERROR: 312": DescriptiveError = "PH-SIM PIN required"
    Case "+CMS ERROR: 313": DescriptiveError = "SIM failure"
    Case "+CMS ERROR: 314": DescriptiveError = "SIM busy"
    Case "+CMS ERROR: 315": DescriptiveError = "SIM wrong"
    Case "+CMS ERROR: 316": DescriptiveError = "SIM PUK required"
    Case "+CMS ERROR: 317": DescriptiveError = "SIM PIN2 required"
    Case "+CMS ERROR: 318": DescriptiveError = "SIM PUK2 required"
    Case "+CMS ERROR: 320": DescriptiveError = "memory failure"
    Case "+CMS ERROR: 321": DescriptiveError = "Invalid memory index"
    Case "+CMS ERROR: 322": DescriptiveError = "Memory full"
    Case "+CMS ERROR: 330": DescriptiveError = "SMSC address unknown"
    Case "+CMS ERROR: 331": DescriptiveError = "No network service"
    Case "+CMS ERROR: 332": DescriptiveError = "Network timeout"
    Case "+CMS ERROR: 340": DescriptiveError = "No +CNMA acknowledgement expected"
    Case "+CMS ERROR: 17": DescriptiveError = "Network failure"
    Case "+CMS ERROR: 22": DescriptiveError = "Congestion"
    Case "+CMS ERROR: 500": DescriptiveError = "Unknown Error"
    Case Else
        DescriptiveError = sResult
    End Select
    Err.Clear
End Function
Public Property Get PhoneBook_AvailableIndex() As Long
    On Error Resume Next
    ' get next available index
    Dim rsCnt As Long
    Dim phEntry As String
    Dim pCapacity As Long
    Call Me.PhoneBook_MemoryStorage(ReadPhoneBookSetting)
    pCapacity = Me.PhoneBook_Capacity
    PhoneBook_AvailableIndex = -1
    For rsCnt = 1 To pCapacity
        ' read entry at specified index
        phEntry = Me.PhoneBook_ReadEntry(rsCnt)
        ' if successfull return index,cellno,fullname
        If Len(phEntry) = 0 Then
            PhoneBook_AvailableIndex = rsCnt
            Exit For
        End If
        DoEvents
    Next
    RaiseEvent Response(PhoneBook_AvailableIndex)
    Err.Clear
End Property
Public Function PhoneBook_AddEntry(ByVal sNumber As String, ByVal sName As String) As String
    On Error Resume Next
    'add an entry to the phonebook
    Dim availableIndex As Long
    availableIndex = Me.PhoneBook_AvailableIndex
    If availableIndex = -1 Then
        PhoneBook_AddEntry = "Phonebook Full"
    Else
        PhoneBook_AddEntry = Me.PhoneBook_WriteEntry(availableIndex, sNumber, sName)
    End If
    RaiseEvent Response(PhoneBook_AddEntry)
    Err.Clear
End Function
Public Function SMS_MessageFormat(MessageFormatAction As MessageFormatEnum) As String
    On Error Resume Next
    ' message format management
    Dim mAnswer As String
    Select Case MessageFormatAction
    Case TextFormat
        SMS_MessageFormat = Request("AT+CMGF=1", , resultPos, vbCrLf)
    Case PDUFormat
        SMS_MessageFormat = Request("AT+CMGF=0", , resultPos, vbCrLf)
    Case ReadFormat
        mAnswer = Request("AT+CMGF?", , resultPos, vbCrLf)
        mAnswer = Trim$(MvField(mAnswer, 2, ":"))
        Select Case mAnswer
        Case 0
            SMS_MessageFormat = "PDU"
        Case 1
            SMS_MessageFormat = "TEXT"
        End Select
    End Select
    RaiseEvent Response(SMS_MessageFormat)
    Err.Clear
End Function
Public Function SMS_MemoryStorage(SelectMemory As SmsMemoryStorageEnum) As String
    On Error Resume Next
    ' select phonebook memory
    Dim mAnswer As String
    Select Case SelectMemory
    Case SimMemory
        mAnswer = Request("AT+CPMS=" & Me.Quote & "SM" & Me.Quote & "," & Me.Quote & "SM" & Me.Quote & "," & Me.Quote & "SM" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "SM"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "SM"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "SM"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    Case MobileEquipmentMemory
        mAnswer = Request("AT+CPMS=" & Me.Quote & "ME" & Me.Quote & "," & Me.Quote & "ME" & Me.Quote & "," & Me.Quote & "ME" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "ME"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "ME"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "ME"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    Case BothMemories
        mAnswer = Request("AT+CPMS=" & Me.Quote & "MT" & Me.Quote & "," & Me.Quote & "MT" & Me.Quote & "," & Me.Quote & "MT" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "MT"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "MT"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "MT"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    Case ReadMemorySetting
        mAnswer = Request("AT+CPMS?", "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
        mReadDelete = MvField(mAnswer, 1, ",")
        mReadDeleteUsed = Val(MvField(mAnswer, 2, ","))
        mReadDeleteCapacity = Val(MvField(mAnswer, 3, ","))
        mWriteSend = MvField(mAnswer, 4, ",")
        mWriteSendUsed = Val(MvField(mAnswer, 5, ","))
        mWriteSendCapacity = Val(MvField(mAnswer, 6, ","))
        mReceived = MvField(mAnswer, 7, ",")
        mReceivedUsed = Val(MvField(mAnswer, 8, ","))
        mReceivedCapacity = Val(MvField(mAnswer, 9, ","))
        mAnswer = "OK"
    Case BroadcastMessageStorage
        mAnswer = Request("AT+CPMS=" & Me.Quote & "BM" & Me.Quote & "," & Me.Quote & "BM" & Me.Quote & "," & Me.Quote & "BM" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "BM"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "BM"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "BM"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    Case StatusReportStorage
        mAnswer = Request("AT+CPMS=" & Me.Quote & "SR" & Me.Quote & "," & Me.Quote & "SR" & Me.Quote & "," & Me.Quote & "SR" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "SR"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "SR"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "SR"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    Case TerminalAdapterStorage
        mAnswer = Request("AT+CPMS=" & Me.Quote & "TA" & Me.Quote & "," & Me.Quote & "TA" & Me.Quote & "," & Me.Quote & "TA" & Me.Quote, "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        Select Case mAnswer
        Case "ERROR"
            mReadDelete = ""
            mReadDeleteUsed = -1
            mReadDeleteCapacity = -1
            mWriteSend = ""
            mWriteSendUsed = -1
            mWriteSendCapacity = -1
            mReceived = ""
            mReceivedUsed = -1
            mReceivedCapacity = -1
        Case Else
            mReadDelete = "TA"
            mReadDeleteUsed = Val(MvField(mAnswer, 1, ","))
            mReadDeleteCapacity = Val(MvField(mAnswer, 2, ","))
            mWriteSend = "TA"
            mWriteSendUsed = Val(MvField(mAnswer, 3, ","))
            mWriteSendCapacity = Val(MvField(mAnswer, 4, ","))
            mReceived = "TA"
            mReceivedUsed = Val(MvField(mAnswer, 5, ","))
            mReceivedCapacity = Val(MvField(mAnswer, 6, ","))
            mAnswer = "OK"
        End Select
    End Select
    SMS_MemoryStorage = mAnswer
    RaiseEvent Response(SMS_MemoryStorage)
    Err.Clear
End Function
Public Function SMS_CentreNumber(CentreNumberAction As CentreNumberEnum, Optional SMSC As String = "") As String
    On Error Resume Next
    ' centre number management
    Dim mAnswer As String
    Select Case CentreNumberAction
    Case SetCentreNumber
        mAnswer = Request("AT+CSCA=" & Me.Quote & SMSC & Me.Quote, "", resultPos, vbCrLf)
    Case ReadCentreNumber
        mAnswer = Request("AT+CSCA?", "", resultPos, vbCrLf)
        mAnswer = MvField(mAnswer, 2, ":")
        mAnswer = MvField(mAnswer, 1, ",")
        mAnswer = Replace$(mAnswer, Me.Quote, "")
    End Select
    SMS_CentreNumber = mAnswer
    RaiseEvent Response(SMS_CentreNumber)
    Err.Clear
End Function
Public Property Get SMS_ReadDeleteStorage() As String
    On Error Resume Next
    SMS_ReadDeleteStorage = mReadDelete
    Err.Clear
End Property
Public Property Get SMS_ReadDeleteStorageUsed() As Long
    On Error Resume Next
    SMS_ReadDeleteStorageUsed = mReadDeleteUsed
    Err.Clear
End Property
Public Property Get SMS_ReadDeleteStorageCapacity() As Long
    On Error Resume Next
    SMS_ReadDeleteStorageCapacity = mReadDeleteCapacity
    Err.Clear
End Property
Public Property Get SMS_WriteSendStorage() As String
    On Error Resume Next
    SMS_WriteSendStorage = mWriteSend
    Err.Clear
End Property
Public Property Get SMS_WriteSendStorageUsed() As Long
    On Error Resume Next
    SMS_WriteSendStorageUsed = mWriteSendUsed
    Err.Clear
End Property
Public Property Get SMS_WriteSendStorageCapacity() As Long
    On Error Resume Next
    SMS_WriteSendStorageCapacity = mWriteSendCapacity
    Err.Clear
End Property
Public Property Get SMS_ReceivedStorage() As String
    On Error Resume Next
    SMS_ReceivedStorage = mReceived
    Err.Clear
End Property
Public Property Get SMS_ReceivedStorageUsed() As Long
    On Error Resume Next
    SMS_ReceivedStorageUsed = mReceivedUsed
    Err.Clear
End Property
Public Property Get SMS_ReceivedStorageCapacity() As Long
    On Error Resume Next
    SMS_ReceivedStorageCapacity = mReceivedCapacity
    Err.Clear
End Property
Public Property Get PhoneBook_Used() As Long
    On Error Resume Next
    PhoneBook_Used = mpbUsed
    Err.Clear
End Property
Public Property Get PhoneBook_Capacity() As Long
    On Error Resume Next
    PhoneBook_Capacity = mpbCapacity
    Err.Clear
End Property
Public Property Get PhoneBook_Memory() As String
    On Error Resume Next
    ' update property
    PhoneBook_Memory = mpbMemory
    Err.Clear
End Property
Public Property Get SubscriberNumber() As String
    On Error Resume Next
    ' get the subscriber number
    SubscriberNumber = Request("AT+CNUM", , resultPos, vbCrLf)
    RaiseEvent Response(SubscriberNumber)
    Err.Clear
End Property
Public Property Get InternationalMobileSubscriberIdentity() As String
    On Error Resume Next
    ' get the international mobile subscriber identity
    InternationalMobileSubscriberIdentity = Request("AT+CIMI", , resultPos, vbCrLf)
    RaiseEvent Response(InternationalMobileSubscriberIdentity)
    Err.Clear
End Property
Public Function SMS_ReadMessageEntry(msgIndex As Long) As String
    On Error Resume Next
    ' read the message stored at location
    Dim mAnswer As String
    Dim tmpAns As String
    Dim MsgType As String
    Dim msgFrom As String
    Dim msgDate As String
    Dim msgTime As String
    Dim msgContents As String
    Dim pPos As Long
    mAnswer = Request("AT+CMGR=" & msgIndex, , , vbCrLf)
    mAnswer = MvRest(mAnswer, 2, Me.VM)
    mAnswer = Trim$(Replace$(mAnswer, "+CMGR:", ""))
    tmpAns = MvField(mAnswer, 1, VM)
    Select Case tmpAns
    Case "OK"
        mAnswer = ""
    Case Else
        MsgType = MvField(mAnswer, 1, ",")
        MsgType = Replace$(MsgType, Quote, "")
        msgFrom = MvField(mAnswer, 2, ",")
        msgFrom = Replace$(msgFrom, Quote, "")
        msgDate = MvField(mAnswer, 4, ",")
        msgDate = Replace$(msgDate, Quote, "")
        msgDate = FixSmsDate(msgDate)
        msgTime = MvField(mAnswer, 5, ",")
        msgTime = MvField(msgTime, 1, VM)
        msgTime = Replace$(msgTime, Quote, "")
        pPos = InStr(1, msgTime, "+")
        If pPos > 0 Then
            msgTime = Left$(msgTime, pPos - 1)
        End If
        msgContents = MvRest(mAnswer, 2, VM)
        msgContents = Replace$(msgContents, VM & VM & "OK" & VM, "")
        msgContents = RemAllVM(msgContents)
        mAnswer = msgIndex & FM & MsgType & FM & msgFrom & FM & msgDate & " " & msgTime & FM & msgContents
    End Select
    SMS_ReadMessageEntry = mAnswer
    RaiseEvent Response(SMS_ReadMessageEntry)
    Err.Clear
End Function
Public Sub SMS_ListView(progBar As Variant, LstView As Variant, Optional mIcon As String = "", Optional mSmallIcon As String = "", Optional MsgType As SmsTypesEnum)
    On Error Resume Next
    ' load contents of the selected message store messages
    ' to the listview
    Dim rsCnt As Long
    Dim phEntry As String
    Dim lstItem As Variant
    Dim spLine() As String
    Dim nCollection As New Collection
    Set nCollection = SMS_ReadMessages
    progBar.Max = nCollection.Count
    progBar.Min = 0
    progBar.Value = 0
    ' create headings
    LstViewMakeHeadings LstView, "Msg ID,Cellphone No.,Contents,Time"
    ' loop through the messages starting from location 1 to the full capacity of the phone
    For rsCnt = 1 To nCollection.Count
        progBar.Value = rsCnt
        ' read entry at specified index
        phEntry = nCollection(rsCnt)
        ' if successfull return msg index, type,cellnumber,date,message
        If Len(phEntry) > 0 Then
            spLine = Split(phEntry, FM)
            Select Case MsgType
            Case Rec
                If spLine(1) = "REC READ" Or spLine(1) = "REC UNREAD" Then
                    GoTo AddLine
                Else
                    GoTo NextLine
                End If
            Case RecRead
                If spLine(1) = "REC READ" Then
                    GoTo AddLine
                Else
                    GoTo NextLine
                End If
            Case RecUnread
                If spLine(1) = "REC UNREAD" Then
                    GoTo AddLine
                Else
                    GoTo NextLine
                End If
            Case StoSent
                If spLine(1) = "STO SENT" Then
                    GoTo AddLine
                Else
                    GoTo NextLine
                End If
            Case StoUnsent
                If spLine(1) = "STO UNSENT" Then
                    GoTo AddLine
                Else
                    GoTo NextLine
                End If
            End Select
AddLine:
            Set lstItem = LstView.ListItems.Add(, , spLine(0))
            lstItem.SubItems(1) = spLine(2)
            lstItem.SubItems(2) = spLine(4)
            lstItem.SubItems(3) = spLine(3)
            If Len(mIcon) > 0 Then lstItem.Icon = mIcon
            If Len(mSmallIcon) > 0 Then lstItem.SmallIcon = mSmallIcon
        End If
NextLine:
        DoEvents
    Next
    progBar.Value = 0
    Err.Clear
End Sub
Private Function MvRest(ByVal strData As String, Optional ByVal startPos As Long = 1, Optional ByVal Delim As String = "") As String
    On Error Resume Next
    ' get the string from a substring position to the end of the
    ' delimited string
    Dim spData() As String
    Dim spCnt As Long
    Dim intLoop As Long
    Dim strL As String
    Dim strM As String
    MvRest = ""
    strM = ""
    If Len(Delim) = 0 Then Delim = Me.VM
    If Len(strData) = 0 Then
        Err.Clear
        Exit Function
    End If
    spData = Split(strData, Delim)
    spCnt = UBound(spData)
    Select Case startPos
    Case -1
        MvRest = Trim$(spData(spCnt))
    Case Else
        strL = ""
        startPos = startPos - 1
        For intLoop = startPos To spCnt
            strL = spData(intLoop)
            If intLoop = spCnt Then
                strM = strM & strL
            Else
                strM = strM & strL & Delim
            End If
        Next
        MvRest = strM
    End Select
    Err.Clear
End Function
Public Function SMS_DeleteEntry(Location As Long) As String
    On Error Resume Next
    ' delete a sms and refresh if ok
    Dim mAnswer As String
    mAnswer = Request("AT+CMGD=" & Location, , resultPos, vbCrLf)
    SMS_DeleteEntry = mAnswer
    If mAnswer = "OK" Then Call SMS_MemoryStorage(ReadMemorySetting)
    RaiseEvent Response(SMS_DeleteEntry)
    Err.Clear
End Function
Private Function SMS_ReadMessages() As Collection
    On Error Resume Next
    ' read all sms messages from selected memory
    Dim mAnswer As String
    Dim nCollection As New Collection
    Dim rsCnt As Long
    Dim rsTot As Long
    Dim rsStr As String
    Dim rsLines() As String
    Dim msgIndex As String
    Dim MsgType As String
    Dim msgFrom As String
    Dim msgDate As String
    Dim msgTime As String
    Dim msgContents As String
    Dim pPos As Long
    mAnswer = Me.SMS_MessageFormat(TextFormat)
    If mAnswer = "OK" Then
        mAnswer = Me.Request("AT+CMGL=" & Quote & "ALL" & Quote, , , vbCrLf)
    End If
    rsLines = Split(mAnswer, "+CMGL:")
    rsTot = UBound(rsLines)
    For rsCnt = 0 To rsTot
        rsLines(rsCnt) = Trim$(rsLines(rsCnt))
        rsStr = rsLines(rsCnt)
        msgIndex = MvField(rsStr, 1, ",")
        If IsNumeric(msgIndex) = True Then
            MsgType = MvField(rsStr, 2, ",")
            MsgType = Replace$(MsgType, Quote, "")
            msgFrom = MvField(rsStr, 3, ",")
            msgFrom = Replace$(msgFrom, Quote, "")
            If msgFrom = "6" Then
                ' report
                GoTo NextRecord
            End If
            msgDate = MvField(rsStr, 5, ",")
            msgDate = Replace$(msgDate, Quote, "")
            msgDate = FixSmsDate(msgDate)
            msgTime = MvField(rsStr, 6, ",")
            msgTime = MvField(msgTime, 1, VM)
            msgTime = Replace$(msgTime, Quote, "")
            pPos = InStr(1, msgTime, "+")
            If pPos > 0 Then
                msgTime = Left$(msgTime, pPos - 1)
            End If
            msgContents = MvRest(rsStr, 2, VM)
            msgContents = Replace$(msgContents, VM & VM & "OK" & VM, "")
            msgContents = RemAllVM(msgContents)
            rsStr = msgIndex & FM & MsgType & FM & msgFrom & FM & msgDate & " " & msgTime & FM & msgContents
            nCollection.Add rsStr
        End If
NextRecord:
    Next
    Set SMS_ReadMessages = nCollection
    Err.Clear
End Function
Private Function SMS_SendSmall(sNumber As String, sMessage As String) As String
    On Error Resume Next
    ' send an sms to a phone, set textmode format just in case
    Dim mAnswer As String
    mAnswer = Request("AT+CMGS=" & Quote & sNumber & Quote, , resultPos, vbCr)
    Select Case mAnswer
    Case ">"
        mAnswer = Request(sMessage, , 4, Chr$(26))
    Case Else
        mAnswer = "ERROR"
    End Select
    SMS_SendSmall = mAnswer
    RaiseEvent Response(SMS_SendSmall)
    Err.Clear
End Function
Public Function SMS_Send(sNumber As String, sMessage As String) As String
    On Error Resume Next
    ' send an sms to a phone, set textmode format just in case
    Dim mAnswer As String
    Dim msgSent As Long
    Dim msgOne As Long
    Dim msgTwo As Long
    msgOne = 0
    msgTwo = 0
    mAnswer = SMS_MessageFormat(TextFormat)
    If mAnswer = "OK" Then
        If Len(sMessage) > 160 Then
            mAnswer = SMS_SendSmall(sNumber, MSMS_Rea   Oim iormaSeomallIcond Selectm3ne = 0FrtPos As Lo= LstView.LiS_Rea   Oim iorar
Endt(a   Oim iorar
Enteld(rsStr,On Erlue     GoTo N  On ES,On Sub
Privatx & FM & MsgType
    If Le"gFrom = "6" Then
            From = "6" Then
    ectionected-DDDDDDDDDD-n
    es ",")iss r"
    Case "+CME ERR        Fromer
   Dimtmber, MSMS_Rea   Oim iormaSeomallIcond Selectm3ne = 0Fr, ""    Err.Clear
End Function
Private Fung, sMo rsToDttexg ectio Fung, sMo rDim rsCnt o ecttio Fung,essageFormde vedStorage() As String
    O : sMo t > 0rmde vefsmjrAT+CMGS> 0rmde ve+CMGS> 0rmdeTime, "etring
    O : sMwO"ectio Fung, sMo rDim rsCnt o ecttio Fung,essageFord an sms to a phone, set index,c"+CME ERROR:TFvents
    Nexo Function
TL
            Else
                sttexg ectise
ormaSeomallIcond Selectm3ne = 0Fr, ""     DoEvelIcond         Descriptive
                ct
  ents = a        sttexg ectise=,n cEs = a        sttexg ectise=,n cEs = a
ormaSeomallIcond Sele_SendSmall((((((te=,n cEs = a
    nLKcor5=,n cEs = a((te=,s = a((te=,s = a(    SMS_SendSmall(sNumber, MSMS_Rer Resume Next
    ' send an sms to a phone, set textmode format just i3lic Subote, "ssssssssssssB5rsTte headings
    LstViewMt i3gDate)
      mWrtcol state"
    Cic SuboMmWrtm msgnts, Ve, "    rror Resume Next
    ' send an sms to a phone, set tRbor Resume Next
    ' send al(sNumNionPrror ehcpd text1
            mWrie, "    rror Resumedetoe Next
    ' s,dmWrtm msgnts, Ve, "    rror Resume Next
    ' send an sms to a phone, set tRbor Resume Next
    ' send al(sNumNionPrror ehcpd text1
DumNion,PrivatDescrim$(rsLineResponssms to a phone, set index,c"+CME ERROR:TFvents
    Nexo Function
TL
            El5       mAAAAAAAAAAAAA FromhvFieAAAAAformatErr.Clear
End FunctioT mAAAAAA+O String
    Dim msgFrom Aa  nAset index,c"+CME ERROR:TFvents
    Nexo Functims to a phone, set tRbor Rtims to a phone, ndex,c"ents As String
    Dim pPos As LonmsgFr            mReceivedCapao.,Cxt
    ' send an sms to t tRborlnswer, gContents As String
    Dim pPos As Long
    mAnsw    ms
        If  , rcoX    m 0 Then, ndex,c"entd(rsStr     Next
    ) As Str RtiU(MvField(mAnswer, 1, ","))bborlnswer, gContents Aser, gTU(MvField(mA Dim sp1e$(msgDate,  &MSMS_Rer Resume Next
    'e Next2, ":")tents Ar.Cl