Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Try
Console.WriteLine(f(3))
Console.WriteLine(f(0))
Catch ex As ArgumentException
Console.WriteLine("Err: " & ex.Message)
End Try
End Sub
Public Shared Function f(ByVal n As Integer) As Integer
If n = 0 Then
Throw New ArgumentException("The value 0 is not accepted.")
End If
Return n * 100
End Function
End Class
' run:
'
' 300
' Err: The value 0 is not accepted.
'