RosettaCodeData/Task/Flow-control-structures/Visual-Basic-.NET/flow-control-structures-2.vb

   Sub foo()
       On Error GoTo label
       'do something dangerous
       Exit Sub
label:
       Console.WriteLine("Operation Failed")
   End Sub