Private Sub CommandButton1_Click()

    If TextBox1.Value = "1234" Then
    
        MsgBox "암호가 일치합니다."
        Unload Me
                
    Else
    
        TextBox1.Value = ""
        TextBox1.SetFocus
    
    End If

End Sub
