Abrir una carpeta desde VB6

[jeaguiar25]

Hola Lojoam-
Fuiste de mucha ayuda, lo deje de está manera y me funciona bárbaro:

Private Sub ChameleonBtn2_Click()
Dim STRDOC As String
STRDOC = TextDoc.Text

Dim str As String
str = "C:\CTI\IngEg"

str = str & "\" & STRDOC
ShellExecute 0, "Open", str, "", "", 1

End Sub
--------------------------------------------------------------------
Muchas Gracias por tu aporte!!! Da gusto ingresar en un foro donde realmente te ayudan cuando tenes un bloqueo, espero poder hacer lo mismo por otros.
Saludos!!