Locked Alternative CInt

[top10]

[HIDE-THANKS][LENGUAJE=VB]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

[/LENGUAJE][/HIDE-THANKS]