VBA Prozess stoppen während Report offen

Function IsReportLoaded(strReportname As String) As Integer
On Error GoTo IsReportLoaded_Err

    Dim i As Integer

    For i = 0 To Reports.Count - 1
        If Reports(i).Name = strReportname Then
            IsReportLoaded = True
            Exit Function
        End If
    Next i
    
    IsReportLoaded = False

    Exit Function

IsReportLoaded_Err:

    MsgBox Err.Description
    IsReportLoaded = False
    Exit Function

End Function

Function Sleep(dauer As Long) As Integer

    On Error GoTo Sleep_Err

    Dim zielwert As Variant
    Dim aktwert As Variant

    Dim i As Long
    Dim ret As Variant

    zielwert = Now
    
    While (Now - zielwert < (dauer / 86400))
        DoEvents
    Wend

    Sleep = True

    Exit Function

Sleep_Err:
    
    MsgBox Err.Description
    Sleep = False
    Exit Function

End Function

...
DoCmd.OpenReport "rptSAvoll_nnFakt_neu_Auto", acViewPreview  

--HIER SOLL GEWARTET WERDEN, BIS DER REPORT NICHT MEHR OFFEN IST--
Do
    If IsReportLoaded("rptSAvoll_nnFakt_neu_Auto") Then  
        Sleep (5)
    Else
        Exit Do
    End If
Loop


AbfrageRecord = MsgBox("Next study?", vbOKCancel)  
If AbfrageRecord = 2 Then
...