Synclock

"A SyncLock block behaves like a Try...Finally construction in which the Try block acquires an exclusive lock on lockobject and the Finally block releases it. Because of this, the SyncLock block guarantees release of the lock, no matter how you exit the block. This is true even in the case of an unhandled exception." - MSDN

Public Sub Foo()
  Dim sText As String
  Dim objLock As Object = New Object()
  Try
      Monitor.Enter(objLock)
      Try
          sText = "Hello"
      Finally
          Monitor.Exit(objLock)
      End Try
  Catch e As Exception
      MessageBox.Show(e.Message)
  End Try
End Sub

- DeveloperFusion