Function IsInteger

Determine if a given string is integer.

Function IsInteger(S As String) As Boolean
    IsInteger = S = "" Or (IsNumeric(S) And Int(Val(S)) = Val(S))
End Function