Send a message in your phone using VBA and TextLocal API.VBA Teacher Sourav,Kolkata 09748184075

Private Sub Command1_Click()
  
        Dim username As String
        Dim password As String
        Dim result As String
        Dim myURL As String
        Dim Sender As String
        Dim numbers As String
        Dim Message As String
        Dim postData As String
        Dim winHttpReq As Object
        apikey = Text1.Text
        Sender = Text2.Text
        numbers = Text3.Text
        Message = Text4.Text
    
        Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    
        myURL = "https://api.textlocal.in/send/?"
        postData = "apikey=" + apikey + "&message=" + Message + "&numbers=" + numbers + "&sender=" + Sender
    
        winHttpReq.Open "POST", myURL, False
        winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        winHttpReq.Send (postData)
    
        sendsms = winHttpReq.responseText
        MsgBox (sendsms)
       
    End Sub
   

**For promotional account which is mine the sender should be blank
**Due to TRI NCCP regulation after 9 pm and before 9 am you can not send message (error 192)
   

I followed this tutorial

https://www.youtube.com/watch?v=fc5ZNMXb4Fo