エラー処理（Try/Catch）

Try
    Dim result As Integer = 10  0
Catch ex As DivideByZeroException
    Console.WriteLine("Cannot divide by zero: " & ex.Message)
Catch ex As Exception
    Console.WriteLine("Error: " & ex.Message)
Finally
    Console.WriteLine("Cleanup")
End Try

' Throw
Function ParseAge(s As String) As Integer
    Dim age As Integer
    If Not Integer.TryParse(s, age) Then
        Throw New ArgumentException("Invalid age: " & s)
    End If
    If age < 0 OrElse age > 150 Then
        Throw New ArgumentOutOfRangeException("age", "Must be 0-150")
    End If
    Return age
End Function

' Exception filter (VB 2015+)
Try
    RiskyOp()
Catch ex As IOException When ex.Message.Contains("disk")
    Console.WriteLine("Disk error")
End Try