Const iMax = 32767, UiMax = 65535
Const lMax = 2147483647, UlMax = 4294967295
Const iQBMax = 9223372036854775807, UiQBMax = 1844674407309551615


Dim iNum As _Integer64, iCount As _Integer64
Dim sChoice As String, sUnsigned As String, sQuit As String
Do While sChoice <> "I" And sChoice <> "L" And sChoice <> "6"
    Input "Please choice among (I)nteger, (L)ong and Integer(6)4 ", sChoice
    sChoice = UCase$(sChoice)
Loop
Do While sUnsigned <> "u" And sUnsigned <> "n"
    Input "Please choice (U)nsigned or (N)ormal? ", sUnsigned
    sUnsigned = LCase$(sUnsigned)
Loop

If sChoice = "I" Then
    If sUnsigned = "n" Then iNum = iMax Else iNum = UiMax
ElseIf sChoice = "L" Then
    If sUnsigned = "n" Then iNum = lMax Else iNum = UlMax
ElseIf sChoice = "6" Then
    If sUnsigned = "n" Then iNum = iQBMax Else iNum = UiQBMax
End If


For iCount = 0 To iNum Step 1
    Print iCount; " Press spacebar to exit "
    sQuit = InKey$
Next
End