Skip to content

Instantly share code, notes, and snippets.

@asynxc
Created September 28, 2016 21:06
Show Gist options
  • Save asynxc/f498cbb83f329f869d9bf286c51c2cc0 to your computer and use it in GitHub Desktop.
Save asynxc/f498cbb83f329f869d9bf286c51c2cc0 to your computer and use it in GitHub Desktop.
'Alternative_CLng Function
'MSVBVM60.__vbaI4Str
Declare Function vbaI4Str Lib "msvbvm60" Alias "__vbaI4Str" (ByVal sStr As String) As Long
Public Function Alternative_Clng(ByVal expression As Variant) As Long
Dim Exp As String
Exp = expression
Alternative_Clng = vbaI4Str(StrConv(Exp, vbUnicode))
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment