Valid Integer Value Function in VB.Net

 Public Function ValidInteger(ByVal Ctrl As Object) As Boolean
        Dim Len, Arr, i
        Ctrl.text = Ctrl.text.trim
        Len = Ctrl.text.length
        Arr = Ctrl.text
        For i = 0 To Len - 1 Step 1
            If Not (((Asc(Arr(i)) >= 48 And Asc(Arr(i)) <= 57))) Then
                If Not (Asc(Arr(i)) = 13) Then
                    Ctrl.focus()
                    Return False
                End If
            End If
        Next
        Return True
    End Function