> как добиться синхронности работы макроса с набором текста на клавиатуре? )  
 
Тут проблема не столько в синхронности, сколько в выводе на форму именно тех символов, которые были нажаты.  
 
К примеру, можно использовать такую, сильно упрощённую, модель кода:  
 
'Главная функция выполнения таймера  
Public Sub TimerCallBack(ByVal Hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)  
   On Error Resume Next  
   Dim i As Long  
   For i = 32 To 255  
       Select Case True  
           Case GetAsyncKeyState(vbKeyControl), GetAsyncKeyState(vbKeyInsert)  
               ' ненужные кнопки - ничего не делаем  
             
           Case GetAsyncKeyState(i) <> 0  
               НажатSHIFT = GetAsyncKeyState(vbKeyShift) <> 0 ' проверяем регистр  
                 
               буква = IIf(НажатSHIFT, Chr(i), LCase(Chr(i)))  
               FrmMain.Label1.Caption = FrmMain.Label1.Caption & буква  
               Exit Sub  
       End Select  
   Next i  
End Sub  
 
Вообще, на самом деле все сложнее.  
Могу помочь, но не бесплатно.  
 
 
PS: Клавиатурный шпион надо писать не на VBA  
Лучше использовать готовые решения.