password visual basic 6.0

formulario:
If txtpassword.Text <> "hola" Then
MsgBox "incorrecto", vbCritical, "atención"
Else
MsgBox "correcto", vbInformation, "atencion"
frmcalculadora.Show
Unload Me
End If

calculadora visual basic 6.0

código de suma:

Txt3.Text = Val(txt1.Text) + Val(Txt2.Text)
lblsigno.Caption = "+"


código de resta:

Txt3.Text = Val(txt1.Text) - Val(Txt2.Text)

lblsigno.Caption = "-"

código de multiplicación:

Txt3.Text = Val(txt1.Text) * Val(Txt2.Text)
lblsigno.Caption = "*"


código de división:

If Txt2.Text = 0 Then
MsgBox "error", vbCritical, "information"
Txt2.Text = ""
Else
Txt3.Text = Val(txt1.Text) / Val(Txt2.Text)
lblsigno.Caption = "/"
End If