Какие операторы для ввода пароля программы - VB

Private Sub CmdPass_Click()
  If txtPass = "Password" then
   'Делаем в случе правильного пароля
  else
   'Делаем в случе неправильного пароля
  end if
End Sub