Sub SpinTextDemo()
    UserForm1.Show
End Sub