I'm attempting to read a string, character by character, interpret each character into a character code(using ASC function), and then write the character in a different location(using CHR function and inputkeys).
However, when I get to extended ascii characters, it returns unexpected character codes.
For example, the character "", I would expect the ASC Function to give me the value 147, but it returns 244.
Any suggestions for making this work w/ extended ascii?

Sample of code (using msgboxs to check answers)
Do While TxtNum < TxtLength + 1
TxtChar = Mid$(TxtString,TxtNum,1)
CharNum = Asc(TxtChar)
msgbox "Char = "&TxtChar&"Code = " & CharNum
'InputKeys Chr$(CharNum)