Msgbox notification with paasword by vba macro

[fixer]

Option Explicit

Sub ABC()
If TextBox1 = "" Then
    MsgBox "PLEASE ENTER THE PASSWORD", vbInformation, ""
    TextBox1.SetFocus
    Exit Sub
ElseIf TextBox1 = "1234" Then
    MsgBox "SUCCESSFUL"
    Application.Visible = True
    Unload Me
Else
    MsgBox "THAT PASWWORD IS INCORRECT", vbInformation, ""
    TextBox1 = ""
    TextBox1.SetFocus
End If
End Sub

Sub CommandButton2_Click()
MsgBox "THIS CONTAINS YOUR CODE THAT UPLOADS THE FILE"
End Sub

Sub UserForm_Initialize()
Call SystemButtonSettings(Me, False)
End Sub

I got this
i need only 1 macro that will do the things