userform button code needs attention to work correctly

I have a userform that opens up, prior to my employees using a worksheet form. This userform has a combobox for their name & a text box for their password. A command button that enables them to enter the worksheet area. The code worked fine until i changed from a textbox to a combobox. At first they were typing their name into a textbox =username, but i added a combobox instead to quicken the process. Now I get "Please Try Again", which you will see in this code or my uploaded file.

Thanks, Hope Someone Can Help!!


Private Sub UserForm_Initialize()
'Populate Employee combo box.
Dim rngEmployee As Range
Dim ws As Worksheet
Set ws = Worksheets("Setup")
For Each rngEmployee In ws.Range("Employee")
UserForm1.ComboBox1.AddItem rngEmployee.Value
Next rngEmployee
End Sub

Private Sub CommandButton1_Click()
Dim username, password As String

username = ComboBox1.Text
password = TextBox2.Text

If username = "Ramsey" And password = "admin" Then
MsgBox "Thank You", vbInformation
Unload Me ' unload this form

End If

If username = "Ronnie" And password = "admin" Then
MsgBox "Thank You", vbInformation
Unload Me ' unload this form

End If

If username = "Doug" And password = "admin" Then
MsgBox "Thank You", vbInformation
Unload Me ' unload this form

End If

If username = "Fish" And password = "admin" Then
MsgBox "Thank You", vbInformation
Unload Me ' unload this form

End If

If username = "Willie" And password = "admin" Then
MsgBox "Thank You", vbInformation
Unload Me ' unload this form

Else
MsgBox "Please Try Again", vbCritical

End If
End Sub

Thanks for the quick reply, passwords will be different. I have used your code and split up cases, but i am getting an error. I am new to VB, so i have never used (CASE). The error is a compile error, Case without Select Case!!!!!! I appreciate your help

MY NEW CODE


Private Sub CommandButton1_Click()
Dim username As String
Dim password As String

username = ComboBox1.Text
password = TextBox2.Text
Select Case username
Case "Ramsey"

If password = "5901" Then

MsgBox "Thank You", vbInformation
Unload Me ' unload this form

Case "Ronnie"

If password = "admin" Then

MsgBox "Thank You", vbInformation
Unload Me ' unload this form

Case "Doug"

If password = "admin" Then

MsgBox "Thank You", vbInformation
Unload Me ' unload this form

Case "Fish"

If password = "elvis123" Then

MsgBox "Thank You", vbInformation
Unload Me ' unload this form

Case "Willie"

If password = "admin" Then

MsgBox "Thank You", vbInformation
Unload Me ' unload this form


Else
MsgBox "You've entered an incorrect password."
TextBox2.Text = vbNullString
End If
Case Else
MsgBox "Username not recognised."
End Select

End Sub

I am trying to grasp the code tags, i understand the point. Will reply afterwards, Thanks.