Public Interface IError
  Sub DisplayError(ByVal sMsg As String)
End Interface
Public Class MyOwnClass
  Implements IError

  Sub DisplayError(ByVal sMsg As String) Implements IError.DisplayError
    MsgBox(sMsg)
  End Sub

End Class