Public Const APPNAME As String = "Wizard Demo"

Sub StartWizard()
    UserForm1.Show
End Sub