top10 Posted April 15, 2016 Share Posted April 15, 2016 [HIDE-THANKS][LENGUAJE=VB]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 [/LENGUAJE][/HIDE-THANKS] Link to comment Share on other sites More sharing options...
Recommended Posts