Se vc pode pegar o KeyAscii então tenta fazer algo assim:
No "declarations" do form, declare uma variável global:
Dim Digitos as String
Daí no KeyPress da Textbox, por exemplo, use o código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
digitos = digitos & Chr(KeyAscii)
f1 = FreeFile
Open "C:SeuArquivo.Txt" For Output As #f1
Print #f1, digitos
Close
End Sub
onde "C:SeuArquivo.Txt" é o arquivo que vc vai usar pra armazenar a digitação. Vc tambem pode usar o app.path pra desiginar que o caminho do arquivo é a pasta da sua aplicação.
Espero ter ajudado...
