membuat password pada form

Private sukses As Boolean

Private Sub CommandButton1_Click()
    MsgBox ("Silahkan Login Lain kali Saudara/i " & TextBox1)
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    MsgBox "Next"
End Sub

Private Sub CommandButton3_Click()
    If TextBox2.Text <> "dodol" Then
        MsgBox "Password Salah", vbCritical
    Else
        sukses = True
        Unload Me
    End If
End Sub

Private Sub CommandButton4_Click()
    Application.Quit
End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()
   
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Deactivate()
    Load Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If sukses Then
        Cancel = 0
    Else
        Cancel = 1
    End If
End Sub