Sub LoadDialog()
    Load UserForm1
End Sub
Sub ShowDialog()
    UserForm1.Show
End Sub