Outlook Password input Screen

Question

Greetings
I have a small Bed&Breakfast client that has the following situation:
1) 5 people use the same Reception PC at all times of the day.
2) There are programs running on the PC that require that the same user be logged in all the time (so I can not use multiple Windows Profiles)
3) He has just upgraded to Outlook 2013 from Thunderbird
4) Each user, when they log into their mail, gets access to their own IMAP mail account and 2 shared IMAP mail accounts
This is what they had in Thunderbird:
When you start up Thunderbird, it asks for your profile. Each user selects their own profile. When their profile is selected, an add-on was installed that asked for a personal password that was used to access their personal mail account. Only if the correct
password was entered, would Thunderbird start up properly.
They would like the same in Outlook
However, you can not password protect an OST file (which would be the Home Run solution, in this case)
This is not for major security protection, just simple prying eyes from other employees, all equally technophobic
What I have set up so far:
1) Each employee has their own mail profile setup in the Mail Control Panel program. 
2) Each profile connects to their personal mail account and each of the two shared accounts, all filtering into their own .OST files
Solutions I have tried:
1) I added an empty PST file to their profile with a password on the PST file. While it did ask for a password before logging in, if they hit the "Cancel" button they would get access to all the mail accounts
2) I tried to find a program that would password protect the OST file at the file level. Unfortunately, all the programs I seemed to find would put the file into a "vault" and there was no program the would just put up a quick password box before
allowing another program to access the file
3) I tried my hand at some "cut and Paste" VBA programming. This was the most successful as I got an almost perfect solution (A popup asks for a password, and if the right one is entered then Outlook opens, otherwise Outlook shuts down), which you
can see below, except that it does not show "****" when the password is entered in the InputBox.
My vague attempts at some VBA programming:
Private Sub Application_Startup()
Dim oProfile As Outlook.NameSpace
Set oProfile = Application.GetNamespace("MAPI")
Retval = InputBox("Enter password:", "Outlook Security", ,8000 , 3000)
Select Case oProfile.CurrentProfileName 
Case "1. Employee 1"
    If Retval = "password1" Then
        Exit Sub
    Else
        Application.Quit
    End If
Case "2. Employee 2" 
    If Retval = "password2" Then
        Exit Sub
    Else
        Application.Quit
    End If
Case "3. Employee 3"
    If Retval = "password3" Then
        Exit Sub
    Else
        Application.Quit
    End If
Case Else
Application.Quit
End Select
End Sub
Like I said, this code works brilliantly and does exactly what I want.... except it shows the password when the user types it in. Now, I realise that their security is a joke, but they are not happy that anyone looking over their shoulder (which could be anyone,
even guests at the B&B) can see their password.
So then I went to go add a UserForm....
And that is not working at all. 
Private Sub Application_Startup()
Userform1.Show
End Sub
Is how I call the Userform... but then Outlook opens before anything is typed into the form.
And putting the Select Code On the OK button does not seem to do anything.
Can anyone please help me to either:
1) Implement the Select Case solution with the Userform
2) Have any other ideas how I can give them what they want...
Thanks
PS. Please use detailed instructions as I am not a VBA programmer and I am just muddling around with it. Thanks you

Answer 1

Id the users are technophobes, remove the Outlook icon from the desktop and Start menu and add an icon to your own app that will prompt for a user name and password and launch Outlook with the specified profile (Namespace.Logon) depending on what the user
specified for the credentials.
Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption
Redemption - what the Outlook
Object Model should have been
Version 5.5 is now available!