how to decode ascii

I have problem, I want to doing some string via VB6(text1.text) send to myreport.rpt (@vb6field)

I check .rpt that @vb6field = (17)

is look fine, (vb6 string "appLE" -> report.rpt @vb6field = "appLE"

but in vb6(text1.text) some string something that symbol ~'%^&*, when send to report.rpt , say ERROR.

is it report.rpt problem?

I think, I can make function before "appLE" -> "97;112;112;76;69;"

but in report.rpt, @vb6field

how to decode that ascii ?

report.DiscardSavedData 'CLEARS REPORT SO WE WORK FROM RECORDSET

report.Database.SetDataSource objRs 'LINK REPORT TO RECORDSET

report.FormulaFields(17).Text = "'" & "vb6string" & "'"