top10 Posted September 28, 2015 Share Posted September 28, 2015 [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] Link to comment Share on other sites More sharing options...
Recommended Posts