DIM TEP AS STRING DIM TEMP AS STRING DIM I AS INTEGER DIM B AS INTEGER TEP = RMSG I = LEN (TEP) IF i <1 THEN EXIT FUNCTION B = I / 4 IF i = B * 4 THEN
TEP = LEFT (TEP, B * 4) ELSE B = B - 1 TEP = Left (TEP, B * 4) end if chg = "" for i = 1 to b Temp = "& H" & MID (TEP, (i - 1) * 4 1, 4) CHG = CHG & Chrw (CINT (VAL (TEMP)) Next I
