Public Function Integer_TryParse(ByVal expression As String, _
                             Optional ByVal min As Integer = -32768, _
                             Optional ByVal max As Integer = 32767, _
                             Optional ByRef value As Integer) As Boolean
 
      Integer_TryParse = False
      If Not IsNumeric(expression) Then Exit Function
 
      Dim ival As Double
      ival = CDbl(expression)
 
      If ival < min Or ival > max Then Exit Function
      If Abs(Fix(ival) - ival) > 0.00000001 * Abs(ival) Then Exit Function
 
      value = ival
      Integer_TryParse = True
 
  End Function