Con la siguiente API, abriras cualquier archivo con la aplicación predeterminada.
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim res As Long
res = ShellExecute(Form1.hWnd, "open", "C:\texto.txt", "", "", 1)
End Sub
Donde aparece el nombre del archivo 'texto.txt' lo déberás de sustituir por la propieda FileName del objeto CommandDialog.
Espero te sirva. Saludos Pola
