Es fehlt das Event.
Sprich was muss passieren damit deine If-Abfrage ausgeführt wird.
Wenn es ein KeyBinder sein soll, solltest du als Event Timer_Tick verwenden.
Tipp:
Timer erstellen => Doppel Klick drauf.
Ist das so richtig ?
Bin anfänger nicht wundern 
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs)
If GetAsyncKeyState(Keys.NumPad1) Then
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/enter")
My.Computer.Keyboard.SendKeys("{Enter}")
End If
End SubIch habs so:
Public Class Form1
Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
Dim strTemp As String = Space(1024), lLength As Integer
lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
Return (strTemp.Substring(0, lLength))
End Function
Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
End Function
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As ShortSuper Sourcecode posten denn man nciht erklären kann 
@TE
Hier:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal Taste As Integer) As Boolean
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.NumPad0) Then
'Do something
End If
End Sub
End ClassZitatPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.NumPad1) Then
SendKeys.Send(start.Text)
Threading.Thread.Sleep(75)
SendKeys.Send(TextBox1.Text & Ende.Text)
So ist es am einfachsten.
Hilfe per Teamviewer gerne.
