Sub SpinTextDemo()
    UserForm1.Show vbModeless
End Sub