Puedes hacer lo siguiente por ejemplo al hacer click un botón
Private Sub Command1_Click()
Dim ValDev&, Programa$
Programa = "EXPLORER.EXE /root,c:\archivos de programa"
ValDev = Shell(Programa, vbNormalFocus)
End Sub
En donde ves /root, puedes poner el valor de una caja de texto u otro control
Ej: Programa = "EXPLORER.EXE /root," & Text1.Text
Pruebalo...
