Private Sub cmdSendSMS_Click()
    Dim res As TNZAPI.MessageResult
    
    Dim message As TNZAPI.SMS
    Set message = New TNZAPI.SMS
    
    message.Sender = "YOUR_EMAIL_ADDRESS"
    message.APIKey = "YOUR_API_KEY"
    message.MessageText = "Test SMS"
    message.Recipient = "+64211231234"
    
    Set res = message.SendMessage()
    
    MsgBox "Message ID: " & res.MessageID
End Sub