Dobra znalazłem rozwiązanie:

Function PobierzCzasLokalny(Nazwa_Katalogu As String) As Date

'Funkcja działa tylko jeżeli plik jest umieszczony na serwerze.
'Jeżeli plik jest zapisany na dysku lokalnym to adres serwera z którego chcemy
'pobierać czas trzeba wpisać ręcznie i usunąć argument z definicji funkcji.

    Dim Request     As Object
    Dim ServerURL, Results   As String
    Dim NetTime     As Date
    'Dim LocalDate   As Date
    Dim LocalTime   As Date
        
    'Adres serwera:
    'ServerURL = "adres serwera"
    ServerURL = Nazwa_Katalogu
   
    On Error Resume Next
    Set Request = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    If Err.Number <> 0 Then
        Exit Function
    End If
    On Error GoTo 0
  
    Request.Open "GET", ServerURL, False, "", ""

    Request.Send
    
    Results = Request.getResponseHeader("date")
    
    Results = Mid(Results, 6, Len(Results) - 9)
    
    NetTime = Right(Results, 8)
    
    PobierzCzasLokalny = NetTime + 2 / 24
       
    Set Request = Nothing
  

End Function