Function Max (Info)
Arr = split (info, ",")
Max = clng (Arr (0))
For i = 1 to Ubound (Arr)
IF CLNG (Arr (i))> ClNG (max) THEN
MAX = ClNG (Arr (i))
END IF
NEXT
END FUNCTION
Function Min (Info)
Arr = split (info, ",")
min = clng (arr (0))
For i = 1 to Ubound (Arr)
IF CLNG (Arr (i)) min = ClNG (Arr (i))
END IF
NEXT
END FUNCTION
'Calling method
'i = max ("12, 23, 12, 12,, 32, 43, 54, 43, 56")
'i = min ("12, 12, 23, 3, 454, 34, 4, 5, 45, 3, 232, 3, 2, 43, 4")
