Du kannst das einfach mit einer Variable abfragen:
Public Class Vokabelhilfsprogramm
Dim Befehlausgefuehrt As Boolean = False
...
End Class
Wenn der Befehl ausgeführt werden soll, setzt du die Variable auf "True":
Befehlausgefuehrt = True
Die Abfrage könnte dann so aussehen:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If TextBox1.Text = "" Then
MsgBox("Fehler! Bitte Vokabel eingeben!")
Else
Process.Start("http://translate.google.de/#la/de/")
If Befehlausgefuehrt = True Then
My.Computer.Keyboard.SendKeys(TextBox1.Text)
Befehlausgefuehrt = False
End If
End If
End Sub
Viel erfolg!