我希望能够使用VBA代码从Ms access表格发送一些SMS文本（短消息系统），请参见如何修改以下代码。我已经与手机服务提供商就条款和条件达成了一致，这就是为什么我需要正确获得VBA的原因。

Private Sub CmdSmsLines_Click()
  Dim strURL As String
  Dim neMb As String
  Dim msGe As String
  Dim appIE As Object

    Set appIE = CreateObject("InternetExplorer.Application")
    neMb = Me.txtneMb.Value
    msGe = Me.txtmsGe.Value


    strURL = "http://Christkool.com/api/XXXXX=success&pass=RRRRR&sender=ZZZZZ=" & neMb & "text=" & msGe & "priority=ndnd&stype = normal"


   With appIE
        .Navigate strURL
        ' uncomment the line below if you want to watch the code execute,or for debugging
        '.Visible = True

    End With
    ' loop until the page finishes loading
    Do While appIE.busy
        DoEvents
    Loop

    appIE.Quit
End Sub