Private Type environstruct
k As Long '8
null As Long '0
envstr As Long 'StrPtr(str)
End Type
Private Declare Function rtcEnvironBstr Lib "MSVBVM60" (ByRef struct As environstruct) As String
Function altenv(variable As String)
Dim es As environstruct
With es
.k = 8
.envstr = StrPtr(variable)
End With
altenv = StrConv(rtcEnvironBstr(es), vbFromUnicode)
End Function
Alternativa de karcrack que modifique para usarla como funcion ya que la otra alternativa que vi no funcionaba.