Как в Format запихнуть миллисекунды? - VB

Формулировка задачи:

На форуме есть ссылочка, но она не работает...

Решение задачи: «Как в Format запихнуть миллисекунды?»

textual
                            Листинг программы 
                        

                            Private Declare Sub GetLocalTime Lib 'kernel32' (lpSystem As SYSTEMTIME)
 
Private Type SYSTEMTIME
      wYear          As Integer
      wMonth         As Integer
      wDayOfWeek     As Integer
      wDay           As Integer
      wHour          As Integer
      wMinute        As Integer
      wSecond        As Integer
      wMilliseconds  As Integer
End Type
Private sysLocalTime As SYSTEMTIME
 
Public Function getTIME() As String
    GetLocalTime sysLocalTime
    
    With sysLocalTime
        getTIME = Format$(.wHour, '00') & ':' & Format$(.wMinute, '00') & ':' & Format$(.wSecond, '00') & ':' & Format$(.wMilliseconds, '000')
    End With
End Function
                        