Código:
Private Sub Text1_Click()
Select Case Text1.Text
Case Is = "Escriba su Contraseña"
Text1.Text = ""
Case Is <> "Escriba su Contraseña"
End Select
End Sub
Private Sub Text1_LostFocus()
Select Case Text1.Text
Case Is = ""
Text1.Text = "Escriba su Contraseña"
End Select
End Sub
Private Sub Form_Click()
Select Case Text1.Text
Case Is = ""
Text1.Text = "Escriba su Contraseña"
End Select
End Sub
Private Sub Form_Load()
Text1 = "Escriba su Contraseña"
Text1.SelLength = Len(Text1.Text)
End Sub