Mensaje Exeption VB.Net

[winexim]

En mi opinion personal creo que los de Visual adaptaron la division a este tipo de articulos:

http://es.wikipedia.org/wiki/Divisi%C3%B3n_por_cero

Si lo que quieres es que marque que no se puede dividir por 0 te anexo lo siguiente
saludos.


Module Module1

Sub Main()
Dim numerador As Double
Dim denominador As Double
Dim Resultado As Double
Try
Console.WriteLine("Introduzca el numerador:")
numerador = Console.ReadLine()

Console.WriteLine("Introduzca el denominador")
denominador = Console.ReadLine()

If denominador = 0 Then
Console.WriteLine("No se puede dividir por cero.")
Else
Resultado = numerador / denominador
Console.WriteLine("El resultado es:" & Resultado)
End If

Console.ReadLine()


Catch exception As Exception
Console.WriteLine("error " & ErrorToString())
Console.ReadLine()
End Try

End Sub

End Module