Abrir una carpeta desde VB6

[lojoam]

Buenas como va?
Mirando rapido se me ocurriria que cuando llegas al ShellExecute 0, "Open", "C:\CTI\IngEg", "", "", 1 justamente el parametro "C:\CTI\IngEg" lo tengas definido como un String previamente.
Al cual le podrias concatenar al final el numero de documento.
Por ej, harias un
Dim str as String
str = "C:\CTI\IngEg" (Si es el directorio donde SIEMPRE se van a encontrar las fichas q mencionas)
y mas abajo le concatenarias el NumeroDePaciente,
str = str & "\" & NumeroDePaciente o str = str + "\" + NumeroDePaciente
De esta forma, si el paciente en cuestion es el 999 concatenarias a "C:\CTI\IngEg" el "\" y el numero "999" al final de la cadena, para lograr el "C:\CTI\IngEg\999" buscado
Espero haber sido de ayuda! ;)
Salutte