首先，我想指出单独使用ie.busy是危险的。当您自动化网页时，.busy是非常不可靠的，我建议您在循环中也包含.readyState属性。
请看我使用.readyState < 4循环运行的测试：

注意到.Busy在前5行为true，然后在第6行变为false吗？这是您的代码认为加载网页的位置。然而，.readyState仍然是1 （相当于READYSTATE_LOADING）
突然又变得忙碌起来，直到.readystate = 4（READYSTATE_COMPLETE）。
我将.busy方法移到了一个单独的sub中，因为在浏览网页时经常调用这个方法。

Sub ieBusy(ie As Object)
    Do While ie.busy Or ie.readystate < 4
        DoEvents
    Loop
End Sub

Sub FillInternetForm()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")

    ie.navigate "website I'm navigating to"
    ie.Visible = True

    iebusy ie

    Set AllHyperLinks = ie.document.getElementsByTagName("A")
    For Each Hyper_link In AllHyperLinks
        If Hyper_link.innerText = "Reconciliations" Then
            Hyper_link.Click
            Exit For
        End If
    Next

    iebusy ie

    Dim mySelection As String, mySelObj As Object
    Set mySelObj = ie.document.getElementById("ctl00_MainContent_ucDashboardPreparer_ucDashboardSettings_ctl00_ddlRoles")

    'set your selection here
    mySelection = "Preparer"    'or Reviewer    or Approver
    Select Case mySelection
    Case "Preparer", "Reviewer", "Approver"
    Case Else
        MsgBox "Invalid Selection!"
        ie.Quit
        Exit Sub
    End Select

    mySelObj.Value = mySelection

End Sub

mySelObj是将设置选择的对象。