Using an embeded resource

Function GetCustomUI(ByVal RibbonID As String) As String _
   Implements Microsoft.Office.Core.IRibbonExtensibility.GetCustomUI
       Select Case RibbonID
           Case "Microsoft.Outlook.Mail.Read"
               Dim ass As Assembly = Assembly.GetExecutingAssembly()
               Dim sr As New   StreamReader(ass.GetManifestResourceStream("anAssembly.
customUI.xml"))
               Dim output As String = sr.ReadToEnd()
               Return output

       End Select
       Return String.Empty
   End Function