Private Sub cmdSendTTS_Click()
    Dim res As TNZAPI.MessageResult
    
    Dim message As TNZAPI.TTS
    Set message = New TNZAPI.TTS
    
    message.Sender = "YOUR_EMAIL_ADDRESS"
    message.APIKey = "YOUR_API_KEY"
    message.MessageToPeople = "Test Message 2"
    message.Recipient = "+6495005001"
    
    Set res = message.SendMessage()
    
    MsgBox "Message ID: " & res.MessageID
End Sub