«

[kmoloney]

In vb.net you get a cast error if you pass a string in some functions. This should take care of it:


Private Function IsPositiveInteger(ByVal objValue AsObject) As Boolean
Dim intX AsInteger
If Not (IsNumeric(objValue)) Then
Return False
Else
intX = CInt(objValue)
If objValue > 0 Then
Return True
Else
Return False
End If
End If

[AJBiagioli]

' inputString is the string we want to test.
Dim number As Integer
If TryParse(inputString, number) AndAlso number > 0
'''' Continue here ....
End If