Visual Basic - TextBox

En el siguiente código controlo que la cantidad a deducir no sea mayor que la existente.
Y si es mayor devuelve el foco al mismo TextBox.

If CantOT.Text > TAlm("Existen") Then
MsgBox "No existe tanto material.", vbInformation
CantOT.SetFocus
End If

Pues resulta que si pongo la misma cantidad que existe, me sale el mensaje de que no existe tanto material y a continuación se salta al siguiente TextBox, haciendo caso omiso a “CantOT.SetFocus”

Espero vuestra ayuda.
Saludos cordiales.

Me respondo:

If Val(CantOT.Text) > TAlm("Existen") Then
MsgBox "No existe tanto material.", vbCritical
CantOT.Text = Format(0, "##,###.00")
Cancel = True