Skip to content

Instantly share code, notes, and snippets.

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