Set Focus

ich habe folgenden Code:

If IsNumeric(txtVK.Value) Or txtVK.Value = "" Then
txtVP.SetFocus
Else
MsgBox "Zahl"
txtVK.Value = ""
txtVK.SetFocus
End If

Alles funktioniert, nur das Setfocus nicht. Wenn die Eingabe nicht numerisch ist, kommt zwar die Fehlermeldung und das löschen der Eingabe im Textfeld, aber der Focus geht gemäß der Aktivierreihenfolge weiter und nicht in das gelöschte Feld (txtVK) zurück.

Kann mir jemand sagen, was ich falsch mahce?

Vielen Dank im voraus,

Michael