Skip to content

Instantly share code, notes, and snippets.

@asynxc
Created September 28, 2016 21:06
Show Gist options
  • Save asynxc/69bbc585fedd1a85ea037957b059d7de to your computer and use it in GitHub Desktop.
Save asynxc/69bbc585fedd1a85ea037957b059d7de to your computer and use it in GitHub Desktop.
'Alternative_Environ Function
'MSVBVM60.rtcEnvironBstr
Private Declare Function rtcEnvironBstr Lib "MSVBVM60" (ByVal ItemPtr As Long) As String
Function Alternative_Environ(ByVal Item As Variant) As String
Alternative_Environ = StrConv(rtcEnvironBstr(Item), vbFromUnicode)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment