Visual Basic - send.keys

ola
bueno mi problema es el siguiente
estoy haciendo un programa que envia pulsaciones de teclas automaticamente
este el contenido el asi

Private Sub Timer1_Timer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
I = I + 1
If I = 10 Then
SendKeys.Send("1")
End If
If I = 40 Then
SendKeys.Send("2")
End If
If I = 310 Then
SendKeys.Send("4")
End If
If I = 340 Then
SendKeys.Send("5")
End If
End Sub

el problema es que los numeros que envia son los del teclado numerico
el que esta al lado derecho del teclado
y yo necesito que envia los numeros que se encuentran arriba
desde ya muchas gracias xD

tu problema es que pones los numeros ascii incorrectos
ve la tabla del enlace de arriba

intentale asi:
Private Sub Timer1_Timer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
I = I + 1
If I = 61 Then
SendKeys.Send("1")
End If
If I = 62 Then
SendKeys.Send("2")
End If
If I = 63 Then
SendKeys.Send("3")
End If
If I = 64 Then
SendKeys.Send("4")
End If
If I = 65 Then
SendKeys.Send("5")
End If
End Sub