Protect / Unprotect Macro

Greetings! This is my first post.

I am using Office 2007 Prof. I found a web site for a "Proect / Unprotect" macro instructions. http://www.ozgrid.com/VBA/excel-work...rotect-all.htm

My question is, can the code in the above proceedure be modified so it asks you to enter your password twice to check for accuracy?

~*~*~*~*~*~*~*~*~*~

Private Sub CommandButton1_Click()

Dim wSheet As Worksheet

	For Each wSheet In Worksheets

		If wSheet.ProtectContents = True Then

			wSheet.Unprotect Password:=TextBox1.Text

		Else

			wSheet.Protect Password:=TextBox1.Text

		End If

	Next wSheet

Unload me

End Sub

~*~*~*~*~*~*~*~*

Best Regards,
Jason Hampton