Private Sub pwd_hide_Click()
    Me.txtPassword.SetFocus
    passwordShowHide
End Sub

Private Sub pwd_show_Click()
    Me.txtPassword.SetFocus
    passwordShowHide
End Sub

Private Sub passwordShowHide()
    If (pwd_show.Visible = True) Then
        pwd_show.Visible = False
        pwd_hide.Visible = True
        Me.txtPassword.Format = "Password"
    Else
        pwd_show.Visible = True
        pwd_hide.Visible = False
        Me.txtPassword.Format = ""
    End If
End Sub

Text0.InputMask = "Password"