u can do this in this way
dim myPass as string
mypass = "TopSecret"
'now use this in ur if statement ,
'now if u want to change the password then place this code on ur replace button
mypass = ""
mypass = txtReplacePass.text
'now ur pass is changed
hope this will helps u , if ur prob is solved Please mark this thread solved
Regards
M.Waqas Aslam