Dim ex As New System.ComponentModel.Win32Exception(STIERR_SHARING_VIOLATION) MsgBox(ex.Message) Throw ex