You could make an obscure file that stores the password, then when you change the password it changes the file. To check the password, you simply get the word from the file and if they match, it's all good. Something like:

to place the password-
Dim password
Open "C:\password.bla" for Random As #1
Text1.Text = password
Put #1,1,password
Close #1

to check the password-
Dim password
Open "C:\password.bla" for Random As #1
Get #1,1,password
If Text2.Text = password Then
'It's all good
Else
MsgBox(whatever)
End if
Close #1