Codigo para introducir contraseña y cambiarla

En este programa convinaremos dos. Uno que va a ser el principal donde se introducira, cambiara la contraseña y el otro donde solo se cambiara.

A continuacion veremos el codigo principal:



Dim d, f, a, r, s As Double
Private Sub Command1_Click()

If (a <> 3) Then
If (f = d) Then
Load mov
mov.Show
Unload Me
Else
MsgBox (" Error... Ingrese bien la contraseña")
a = a + 1
End If
Else
End
End If
End Sub

Private Sub Command2_Click()
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Command4.Visible = True

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
If r = s And r <> 1991 Then
d = r
End If
End Sub

Private Sub Form_Load()
d = 1991
End Sub

Private Sub Text1_Change()
If Text1 <> " " Then
f = Val(Text1.Text)
End If
End Sub

Private Sub Text2_Change()
If Text2 <> " " Then
r = Val(Text2.Text)
End If
End Sub

Private Sub Text3_Change()
If Text3 <> " " Then
s = Val(Text3.Text)
End If
End Sub


Y el codigo secundario el de cambiar la contraseña:


Dim a, b, c, d As Integer
Private Sub Command1_Click()
If (a = b) Then
d = c
Else
MsgBox ("Ingrese bien la contraseña")
End If
Load contraseña
contraseña.Show
Unload Me
End Sub

Private Sub Text1_Change()
a = Val(Text1.Text)

End Sub

Private Sub Text2_Change()
b = Val(Text2.Text)
End Sub

Private Sub Text3_Change()
c = Val(Text3.Text)
End Sub