Option Explicit

Private mySMSConnection As EasySMSClient
Const username = "myUserName"
Const password = "myPassword"
Const Tel = "4799887766"
Const msg = "This is a test message"

Private Sub main()
    Dim mySMS As sendSMSType
    Set mySMSConnection = New EasySMSClient
    If mySMSConnection.Connect(username, password) Then
        mySMS.msgID = mySMSConnection.getNextMsgId
        mySMS.Tel = Tel
        mySMS.msg = msg
        If mySMSConnection.sendSMS(mySMS) Then
            Debug.Print "Message sent successfully"
        Else
            Debug.Print "Problems with sending message"
        End If
    Else
        Debug.Print "Connection problems"
    End If
    mySMSConnection.disconnect
    Set mySMSConnection = Nothing
End Sub