This code will return the current UTC time from the WorldTimeAPI.org web server.

Public Function GetUTCTime() As Date

    Dim XMLHTTP As Object
    Dim ResponseText As String
    Dim MyURL As String
    Dim L As Long, S As String
    
    MyURL = "http://worldtimeapi.org/api/ip.txt"
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", MyURL, False
    XMLHTTP.send
    ResponseText = XMLHTTP.ResponseText
    ResponseText = Replace(ResponseText, Chr(10), vbNewLine)
    Set XMLHTTP = Nothing
    
    S = ResponseText
    L = InStr(S, "utc_datetime:")
    S = Right(S, Len(S) - L + 1)
    S = Left(S, 33)
    S = Mid(S, 20, 2) & "/" & Mid(S, 23, 2) & "/" & Mid(S, 15, 4) & " " & Right(S, 8)

    GetUTCTime = CDate(S)
    
End Function

This code will Restore Down the Access Application Window

MyUTCTime = GetUTCTime()