excelvbaでJST(日本時間)をミリ秒単位で取得

excelvba 
#If Win64 Then
Private Declare PtrSafe Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
#Else
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
#End If

Private Function GetLocalTime() As String
    Dim t   As SYSTEMTIME
    Dim s
    
    ' 現在日時取得
    Call GetSystemTime(t)
    
    Dim JSTDateTime As Date
    JSTDateTime = CDate(Format(t.wYear, "0000") & "/" & Format(t.wMonth, "00") & "/" & Format(t.wDay, "00") _
                & " " & Format(t.wHour, "00") & ":" & Format(t.wMinute, "00") & ":" & Format(t.wSecond, "00"))
    JSTDateTime = JSTDateTime + TimeValue("9:00:00")
    
    GetLocalTime = Format(JSTDateTime, "yyyy/mm/dd hh:mm:ss")
    GetLocalTime = GetLocalTime + "." + Format(t.wMilliseconds, "000")
    
End Function

ネタ元