Option Explicit

Const AccountString = "Enter account"

Private Sub Form_Load()
    textAccount.ForeColor = &HC0C0C0
    textAccount.Text = AccountString
End Sub

Private Sub textAccount_Click()
    textAccount.Text = ""
    textAccount.ForeColor = &H80000012
End Sub

Private Sub textAccount_LostFocus()
    If textAccount.Text = "" Then
        textAccount.Text = AccountString
        textAccount.ForeColor = &HC0C0C0
    End If
End Sub