Arkadaşlar bi yardım edin

arkadaşlar ben ufak  ufak bişiler yazmaya çalısıyom bi yardım edin
 
ben bu kodu
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = "Basılan Tuşun Kodu :" & KeyCode
End Sub
text yazıyorum ordaki kodları labele yazıyor tmm iyi güzel hoş başka tusa basıldıgında ordaki rakam değişiyor benim yapmak istedigim labelin yanına gelsin yani "454545" gibi ve onu bi kod sayesinde bilgisayarın bir yerine yazıldıkça kaydetsin istiyorum bana bu konuda yardım edecek varmı?

bune bunu exe yaptım baktım dosta ısaretler hızlı olarka y er degısıyor bun ne  onu anlatabılırmısın acab  hıc bısey anlamadım bılende azdır sanırım bıraz acarsan

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = Label1.Caption + LTrim(Str$(KeyCode))
End Sub

bu kod sorunun bir kısmını çözer daha sonra bu sayıları bir txt dosyasına kaydedebilirsin.