Otra forma de comprobarlo recomendada en algunos manuales por considerarse más rápida de ejecutar.
Private sub Comman1_Click()
If len(text1.text) then
MsgBox "Introduce el dato en el text1"
text1.setfocus
Else ' el else es opcional
'pon lo que quieras
end if
end sub
Len(cadena) devuelve un cero, o lo que es lo mismo un FALSE, si no hay nada en la cadena.
SetFocus es para que el cursor le aparezca en el textbox y pueda intruducir el dato sin usar el ratón.
Saludos, David.