For Each s As String In System.Reflection.Assembly.GetExecutingAssembly( _
    ).GetManifestResourceNames
    Debug.WriteLine(s)
  Next

Dim resFile As String = System.Reflection.Assembly.GetExecutingAssembly( _
  ).GetName().Name + ".test1.vbs"
Dim stream As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly( _
).GetManifestResourceStream(resFile)
RichTextBox1.LoadFile(stream, RichTextBoxStreamType.PlainTest) '// RichText 
' geht in diesem Fall auch nicht, da es kein RTF ist