Excel Dialog Sheets

Here you have Kathy (and all programmers who need to work on the legacy Excel VBA code). Dialog sheets

Sub The_Good_Old_Dialog_Boxes()

ActiveDialog.Focus = "EditBox1"

Application.ThisWorkbook.DialogSheets("Dialog1").Buttons("cmdOK").Enabled = False

ActiveDialog.EditBoxes("EditBox1").Text = vbNullString

End Sub