Use Userform Password Screen

I have a UserForm that I want to use as a Password screen
The form has a label, CommandButton and TextBox.

When I run the UserForm, IF you click OK without entering the Password, you still gain access to the Workbook!
IF you type in the wrong Password you still gain access to the Workbook and NO "Invalid password!" message pops up.

What I would like to happen IF the CommandButton is clicked without entering the Password, is for the Workbook to close, and IF the Password is correct, I want to load Useform2

I am using the following code provided by rorya, that I got from here.....
http://www.mrexcel.com/forum/showthr...light=password

[CODE]
Option Explicit
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.Hide
End Sub

Sub Mycode()
Dim frm As UserForm3
Set frm = New UserForm3
frm.Show
If frm.TextBox1.Text = "Password" Then
' run your code
Else
MsgBox "Invalid password!"
End If
Unload frm
End Sub
[CODE]