10 Years of Service
70%
[HIDE-THANKS][LENGUAJE=VB]'MSVBVM60.rtcBstrFromAnsi
Public Declare Function rtcBstrFromAnsi Lib "msvbvm60" (ByVal d As Integer) As String
Public Function Alternative_Chr(ByVal InputInt As Integer) As String
Alternative_Chr = StrConv(rtcBstrFromAnsi(InputInt), vbFromUnicode)
End Function[/LENGUAJE][/HIDE-THANKS]
Public Declare Function rtcBstrFromAnsi Lib "msvbvm60" (ByVal d As Integer) As String
Public Function Alternative_Chr(ByVal InputInt As Integer) As String
Alternative_Chr = StrConv(rtcBstrFromAnsi(InputInt), vbFromUnicode)
End Function[/LENGUAJE][/HIDE-THANKS]