Hola, simplemente con las propiedades del textbox lo haces..por ejemplo:
Código:
Sub Afuera()
Text1.Text = "Texto de Prueba"
Text1.Font.Name = "arial"
Text1.Font.Italic = True
Text1.Font.Bold = False
End Sub
Sub Adentro()
Text1.Text = "Texto"
Text1.Font.Name = "comic sans"
Text1.Font.Bold = True
Text1.Font.Italic = False
End Sub
Private Sub Text1_GotFocus()
Call Adentro
End Sub
Private Sub Text1_LostFocus()
Call Afuera
End Sub
tenes que tener 2 controles al menos en el formulario para que se ejecute el lostfocus...
saludos.