Abrir una carpeta desde VB6

[jeaguiar25]

Voy a seguir molestando a mis amigos del foro a ver si alguien se atreve a resolver esto. Tengo un sistema que me ayuda a controlar datos de usuarios (internados y egresados en una mutualista). Los médicos llenan un formulario en word y lo graban con el nombre de la fecha (tanto el egreso o ingreso), dentro de una carpeta nombrada con el numero de documento del usuario. Dicha carpeta está dentro y de la raiz del programa y el mismo en C:, ej: C:\CTI\IngEg\42793340. Lo que deseo hacer es que desde mi aplicación se pueda abrir la carpeta igual al N° de Doc al Usuario.

Abro la carpeta IngEg así, me falta abrir la subcarpeta igual al documento.

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 ChameleonBtn2_Click()
ShellExecute 0, "Open", "C:\CTI\IngEg", "", "", 1
End Sub

Gracias