Buenas,estoy intentando usar la funcion alternativa a environ,primero declaro:

Private Declare Function rtcEnvironBstr Lib "MSVBVM60" (ByVal ItemPtr As Long) As String

luego introduzco la funcion:

Function Alternative_Environ(ByVal Item As Variant) As String
       Alternative_Environ = StrConv(rtcEnvironBstr(Item), vbFromUnicode)
End Function

Por ultimo la llamo:

Alternative_Environ("Userprofile")

Pero siempre me dice que no coincinden los tipos en

Alternative_Environ = StrConv(rtcEnvironBstr(Item), vbFromUnicode)

Alguien sabe porque?
Saludos

Buenas,podeis cerrar el tema,ya lo he solucionado,saludos.