input box format

This is probably a simply question, but I'll feel like a dullard later. I
have an input box that I want to format the text as *** (standard password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans <> "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks

You can't use VBA's inputbox() for this.

But you could design a small userform that can.

Dan wrote:
>
> This is probably a simply question, but I'll feel like a dullard later. I
> have an input box that I want to format the text as *** (standard password )
> Heres what I have:
>
> Dim ans As String
>
> ans = InputBox("Enter password")
> ans = UCase(ans)
> If ans <> "PASSWORD" Then
> MsgBox "Incorrect, try again"
> Exit Sub
> ELSE
> etc ect
>
> Thanks

--

Dave Peterson

See
http://www.xcelfiles.com/API_09.html
for a solution. Question is simple enough, but the solution is pretty
complicated, so don't feel bad about it.

HTH. Best wishes Harald

"Dan" <[email protected]> skrev i melding
news:[email protected]...
> This is probably a simply question, but I'll feel like a dullard later. I
> have an input box that I want to format the text as *** (standard
> password )
> Heres what I have:
>
> Dim ans As String
>
> ans = InputBox("Enter password")
> ans = UCase(ans)
> If ans <> "PASSWORD" Then
> MsgBox "Incorrect, try again"
> Exit Sub
> ELSE
> etc ect
>
> Thanks

If I did that, would I use a textbox on the userform and set the
passwordchar property of the textbox to "*"




"Dave Peterson" <[email protected]> wrote in message
news:[email protected]...
> You can't use VBA's inputbox() for this.
>
> But you could design a small userform that can.
>
> Dan wrote:
> >
> > This is probably a simply question, but I'll feel like a dullard later.
I
> > have an input box that I want to format the text as *** (standard
password )
> > Heres what I have:
> >
> > Dim ans As String
> >
> > ans = InputBox("Enter password")
> > ans = UCase(ans)
> > If ans <> "PASSWORD" Then
> > MsgBox "Incorrect, try again"
> > Exit Sub
> > ELSE
> > etc ect
> >
> > Thanks
>
> --
>
> Dave Peterson