Class Sample
Public Shared Sub Main()
Dim values() As String = { "One", "1.34e28", "-26.87", "-18", "-6.00", _
" 0", "1601.9", Int32.MaxValue.ToString() }
Dim result As UInteger
For Each value As String In values
Try
result = Convert.ToUInt32(value)
Console.WriteLine(result)
Catch e As Exception
Console.WriteLine("Exception")
End Try
Next
End Sub
End Class