IsNumeric( )

Esta función devuelve un valor lógico indicando si la expresión que pasamos como parámetro contiene un número o una cadena que pueda ser convertida a número. Ver el Código fuente 177.

Public Sub Main()

Dim Valor As Object

Dim Total As Integer

Console.WriteLine("Introducir un número")

Valor = Console.ReadLine()

If IsNumeric(Valor) Then

Total = Valor + 100

Console.WriteLine("Resultado: {0}", Total)

Else

Console.WriteLine("El valor introducido no es numérico")

End If

Console.ReadLine()

End Sub

Código fuente 177