la variable que recoje la ruta del fichero es:
sRuta
Grax

He probado con
Código
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long
Pro no me sale :S