VBA: no funciona el setfocus, no lo entiendo

[lucasiramos]

En realidad debes usar el evento Lostfocus. El codigo seria algo asi:

Código:

 Private Sub TextBox1_LostFocus()
   If IsDate(TextBox1.Text) = False Then
	   MsgBox ("Debe ingresar una fecha")
	   TextBox1.SetFocus
   End If
End Sub

Saludos. Lucas