1000 RTF DISCARDABLE "Text1.rtf"
1001 RTF DISCARDABLE "Text2.rtf"
1002 RTF DISCARDABLE "Text3.rtf"

<code>Public Sub LoadRTFFromRes(RTFBox As Control, ByVal resID As Long)
  Dim bRTF() As Byte()
 
  <font color=green>' LoadResData liefert das Ergebnis als Byte-Array 
  ' zurück</font>
  bRTF = LoadResData(resID, "RTF")
 
  <font color=green>' Jetzt das Byte-Array in einen String umwandeln</font>
  Dim I As Long
  Dim strRTF As String
 
  For I = 0 To UBound(bRTF)
    strRTF = strRTF & Chr$(bRTF(I))
  Next I
 
  <font color=green>' Jetzt den RTF-Text dem RTF-Eingabefeld zuweisen</font>
  RTF.TextRTF = strRTF
End Sub</code>

<font color=green>' RTF-Datei laden und anzeigen</font>
LoadRTFFromRes RichTextBox1, 1000