Skip to content

Instantly share code, notes, and snippets.

@asynxc

asynxc/rtcStringBstr

Created September 28, 2016 21:02
Show Gist options
  • Save asynxc/ab5f8f781a2696161e4d80c405ee36aa to your computer and use it in GitHub Desktop.
Save asynxc/ab5f8f781a2696161e4d80c405ee36aa to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rtcStringBstr
'String$() Alternative function
'Coded by hamavb
'MSVBVM60.rtcStringBstr
Public Declare Function rtcStringBstr Lib "MSVBVM60" (ByVal Longeur As Long, ByRef VbV As Variant) As String
Public Function Alternative_String(ByVal iLen As Long, ByVal Char As Variant) As String
Alternative_String = StrConv(rtcStringBstr(iLen, Char), vbFromUnicode)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment