Function IsInt(ByVal arg As Object) As Boolean
        Try
            Dim int As UInteger = CInt(arg)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

mit freundlichen Grüßen
Sven