How to Make Loop for ListBox to Send Bulk SMS in Access 2016/19

Question

Hello Everyone!
I want to make a loop for Listbox with Mobile Numbers to send SMS to all of them
MS Access 2016/19
I can send an SMS Successfully by selection to single MobileNumber in Listbox.

If I want to send SMS to all Numbers by Selection it sends all sms to one first mobile number.
Please help me.
Here is code for loop sending sms

Private Sub Command41_Click()
Dim x As Integer
For x = 0 To Me.Listbox1.ListCount - 1
Debug.Print Listbox1.ItemData(x)
''Send SMS command
Call cmdSendSMS_Click
Next x
End Sub

Answer 1

Does this work?

    Private Sub Command41_Click()
        Dim x As Integer
        For x = 0 To Me.ListBox1.ListCount - 1
            Debug.Print ListBox1.ItemData(x)
            Me.ListBox1.ListIndex = x
            ''Send SMS command
            Call cmdSendSMS_Click
        Next x
    End Sub