I guess (me again stating the obvious) that you could kludge it ...
Quote:
sub Main()
CheckMyNum
Select Value
Case "0033": do this
Case "3470": do that
Case Else: do theother
End Select
End Sub
sub CheckMyNum()
Value = "Else"
if mynum >=0 and mynum <=33 then value = "0033"
if mynum >=34 and mynum <=70 then value = "3470"
end sub
|