funfactor = InputBox("Please enter a fun factor between 1 and 100")
For count = 1 to funfactor
    MsgBox("Having fun yet?")
Next