This page is not complete.
Come back later to see intruction regarding to the OCX you have to place in the FORM.

In your MODULE.BAS:

Option Explicit

Public path_cdrom As String

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Sub SbLoadCDROM()
Dim i As Long
Dim j As Integer

For j = 0 To Form1.Drive1.ListCount - 1

i = GetDriveType(Form1.Drive1.List(j))
If i = 5 Then
Exit For
End If

Next j
path_cdrom = Form1.Drive1.List(j)

End Sub

In you form:

' This is a comment - Open file MyFile in the CD-ROM

form1.RtbContext.LoadFile path_cdrom & "\Texts\" & MyFile