Skip to content

Instantly share code, notes, and snippets.

@asynxc

asynxc/vbaLenBstr

Created September 28, 2016 21:03
Show Gist options
  • Save asynxc/4aa1f69c29e8f40a1714450f84eb32da to your computer and use it in GitHub Desktop.
Save asynxc/4aa1f69c29e8f40a1714450f84eb32da to your computer and use it in GitHub Desktop.
Download ZIP
Raw
vbaLenBstr
'Len() Alternative Function
'MSVBVM60.vbaLenBstr
Public Declare Function vbaLenBstr Lib "msvbvm60" Alias "__vbaLenBstr" (ByVal ptr As Long) As Long
Public Function Alternative_Len(ByVal sStr As String) As Long
Alternative_Len = vbaLenBstr(StrPtr(sStr))
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment