sending sms from excel vba

Hello. please I have the following situation which I ask for your help:
I have a list which contains 3000 records (row).
Column A contains the last and last names of the customers.
Column B contains the telephone numbers
Column C contains the customer's birthday.
I want the following conditionality tree:
The program at start-up browses the list, compares the current date with those entered in column C; in the event of a tie for example for Cx, this would mean that it is the customer's birthday. Then the program retrieves the information Ax (client name) and Cx (client name) so that it can be used in the automatic SMS sending system

... Saints of Lord !

Excel is not for that !

But ...

1. You must have access to the SMS gateway on the website of some provider of such service (SMS via the website)
... and the configuration and operation from the excel-vba level can be quite unreliable for such "something"
(the ISP provides information about the configuration of the "sms query")

2. You can use an additional software, e.g. enter "SMSLibX excel" in aunt google
Comment:
(This "above text" is not an advertisement but an accidental convergence of letters resulting from increased solar radiation in Antarctica)

3. You can use the API for this - but it is usually a paid service of a specialized ISP

4. You can also use e.g. Samba => Debian (Gsm-Utils package) => Gsm modem configured for "/dev/ttyS0"
(see and read in the documentation and e.g. 'https://en.wikipedia.org/wiki/Samba_(software)')

Zusammenfassung:
There are dozens of tools better than Excel for sending sms/text messages ...

I already have access to a gateway and it works for other cases.
I'm just asking that you help me build a condition tree based on the information I gave you

here is the loop I tried, but it hangs at next i with the error message: next i without for.

this condition should allow me to test only the day and the month to know if it is the anniversary because my range E is formatted at (dd.mmm.1900
as mentioned above, the goal is to test line by line by line. If the condition is verified, send the message and continue the procedure until the last line.
If the condition is not verified, skip the line and continue the procedure

Dim Recipient As String
    Dim Message As String
    Dim i As Integer
    
    Dim rowname As String
    Dim rownumber As String
    Dim rowdateanniv As Double
    
    'Dim rowtimerdv, rownumber, rowdaterdv, x  As String
    
    'rowtimerdv = Worksheets("PLANNING").Range("I4").Text
    'rowprestardv = Worksheets("PLANNING").Range("H4").Text
    rowname = Worksheets("CLIENTS").Range("D35:D5000").Value
    rownumber = Worksheets("CLIENTS").Range("D35:D5000").Value
    rowdateanniv = Worksheets("CLIENTS").Range("E35:E5000").Value
    
    
    x = "237"
    Recipient = x & rownumber
           
           
           'If Now - Date > TimeSerial(9, 0, 0) Then
           For i = 35 To 5000
    
    If (Day(Worksheets("CLIENTS").Cells(i, 5).Value) = Day(Date) And Month(Worksheets("CLIENTS").Cells(i, 5).Value) = Month(Date)) Then
            
        Message = "Dear  " & rowname & ", we wish you a happy birthday and all the best for you."
        'Next i
         Else
         Exit Sub
         Next i
        End If
    End If

Thank you, it's blocked at this level line red

Dim Recipient As String
    Dim Message As String
    Dim i As Integer
    
    Dim rowname As String
    Dim rownumber As String
    Dim rowdateanniv As Double
    
    'Dim rowtimerdv, rownumber, rowdaterdv, x  As String
    
    'rowtimerdv = Worksheets("PLANNING").Range("I4").Text
    'rowprestardv = Worksheets("PLANNING").Range("H4").Text
    rowname = Worksheets("CLIENTS").Range("C35:C5000").Value
    rownumber = Worksheets("CLIENTS").Range("D35:D5000").Value
    rowdateanniv = Worksheets("CLIENTS").Range("E35:E5000").Value
    
    
    x = "237"
    Recipient = x & rownumber
           
           
      If Now - Date > TimeSerial(9, 0, 0) Then
           For i = 35 To 5000
    
                If (Day(Worksheets("CLIENTS").Cells(i, 5).Value) = Day(Date) And Month(Worksheets("CLIENTS").Cells(i, 5).Value) = Month(Date)) Then
            
        Message = "Dear  " & rowname & ", we wish you a happy birthday and all the best for you."
        'Next i
                Else
                    Exit Sub
         
                
    End If
    Next i
    End If

column C contains the names, D the telephone numbers and E the birthdays.
I want the program to go through this range E, when the anniversary date is equal to the current date, the program retrieves the name of the customers and stores in rowname, retrieves the phone number stored in rownumber, send the sms and continue processing to the end of the pile

Dim Message as string
Message = "Dear " & Worksheets("CLIENTS").Cells(i, 5).Offset(,-2).Value & " Happy birthday kid" 
MsgBox Message

those ranges in red are not used as far as I can see, comment them out

Thank, but i also need the phone number to send the sms to the API

Also I compare unique day and month to determine if it's customer's birthday because my column E date format is (dd.mmm.1900)

Hello porucha vevrku
Do you have experience of sending sms with the sms sending system with gsm phone indicated in point 4 of post n. 2?
Thanks