Это я вписал в модуль:

Public Declare PtrSafe Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Public 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
Dim t As String, delta As Long, st As SYSTEMTIME
t = Range("A1").Text
If Not IsDate(t) Then MsgBox "А1 не содержит корректное время": Exit Sub
Debug.Print DateDiff("s", Time, Fix(CDate(t)) - CDate(t))
delta = DateDiff("s", Time, CDate(t) - Fix(CDate(t)))

Do
Call GetLocalTime(st)
Range("A2") = Format$(TimeSerial(st.wHour, st.wMinute, st.wSecond + delta), "hh:nn:ss") + "." + CStr(st.wMilliseconds)
DoEvents
Loop

При сохранении программа выдает мне Invalid outside procedure (недопустимые внешние процедуры)
часы пока не работают

Shocker.Pro,
то есть
1 в конце кода я ставлю end sub:

Do
Call GetLocalTime(st)
Range("A2") = Format$(TimeSerial(st.wHour, st.wMinute, st.wSecond + delta), "hh:nn:ss") + "." + CStr(st.wMilliseconds)
DoEvents
Loop
End sub
2 сохраняю и
3 в таблице иксель в A2 пишу формулу =A1+секунды(1/1000)
????? (только не взрывайся пж)))

Shocker.Pro,
больше не ругается ! де баг принт убрал
а как запустить?

Запустить плэй понятно в меню есть
я вкл его попадаю в таблицу где в окне надпись А1 содержит не корректное время

если я прав понял импортируется картинка а не числовой ряд? если так преобразовать нельзя?

Shocker.Pro,
Вы есть в скайпе?

Шокер коль уж я только осваиваю работу с программами к Вам только на Вы
Спасибо Большое Вы лучший
Спасибо за терпение, на других сайтах такого хорошего отношения как у Вас не встретил
Спасибо