DeWord

Description:
Microsoft Word subtly changes some of your text when you input it, for instance, changing quotes to "smart quotes" that aren't within the standard ASCII character set. This simple function is my attempt to revert some of the word special symbols back to their normal ASCII counterparts.

The function just takes an input string, and returns the same string, replacing all non-ASCII characters with either a question mark, or an approximation of their symbol.
 
Code:
Public Function DeWord(sIn As String) As String
   
   DeWord = sIn
   
   DeWord = Replace(DeWord, Chr(0), " ")
   DeWord = Replace(DeWord, Chr(1), " ")
   DeWord = Replace(DeWord, Chr(2), " ")
   DeWord = Replace(DeWord, Chr(3), " ")
   DeWord = Replace(DeWord, Chr(4), " ")
   DeWord = Replace(DeWord, Chr(5), " ")
   DeWord = Replace(DeWord, Chr(6), " ")
   DeWord = Replace(DeWord, Chr(7), " ")
   DeWord = Replace(DeWord, Chr(8), " ")
   DeWord = Replace(DeWord, Chr(9), " ")
   DeWord = Replace(DeWord, Chr(11), " ")
   DeWord = Replace(DeWord, Chr(12), " ")
   DeWord = Replace(DeWord, Chr(14), " ")
   DeWord = Replace(DeWord, Chr(15), " ")
   DeWord = Replace(DeWord, Chr(16), " ")
   DeWord = Replace(DeWord, Chr(17), " ")
   DeWord = Replace(DeWord, Chr(18), " ")
   DeWord = Replace(DeWord, Chr(19), " ")
   DeWord = Replace(DeWord, Chr(20), " ")
   DeWord = Replace(DeWord, Chr(21), " ")
   DeWord = Replace(DeWord, Chr(22), " ")
   DeWord = Replace(DeWord, Chr(23), " ")
   DeWord = Replace(DeWord, Chr(24), " ")
   DeWord = Replace(DeWord, Chr(25), " ")
   DeWord = Replace(DeWord, Chr(26), " ")
   DeWord = Replace(DeWord, Chr(27), " ")
   DeWord = Replace(DeWord, Chr(28), " ")
   DeWord = Replace(DeWord, Chr(29), " ")
   DeWord = Replace(DeWord, Chr(30), "-")
   DeWord = Replace(DeWord, Chr(31), " ")
   DeWord = Replace(DeWord, Chr(127), "??")
   DeWord = Replace(DeWord, Chr(128), "??")
   DeWord = Replace(DeWord, Chr(129), "??")
   DeWord = Replace(DeWord, Chr(130), ",")
   DeWord = Replace(DeWord, Chr(131), "??")
   DeWord = Replace(DeWord, Chr(132), ",,")
   DeWord = Replace(DeWord, Chr(133), "...")
   DeWord = Replace(DeWord, Chr(134), "??")
   DeWord = Replace(DeWord, Chr(135), "??")
   DeWord = Replace(DeWord, Chr(136), "^")
   DeWord = Replace(DeWord, Chr(137), "??")
   DeWord = Replace(DeWord, Chr(138), "??")
   DeWord = Replace(DeWord, Chr(139), "<")
   DeWord = Replace(DeWord, Chr(140), "??")
   DeWord = Replace(DeWord, Chr(141), "??")
   DeWord = Replace(DeWord, Chr(142), "??")
   DeWord = Replace(DeWord, Chr(143), "??")
   DeWord = Replace(DeWord, Chr(144), "??")
   DeWord = Replace(DeWord, Chr(145), "'")
   DeWord = Replace(DeWord, Chr(146), "'")
   DeWord = Replace(DeWord, Chr(147), """")
   DeWord = Replace(DeWord, Chr(148), """")
   DeWord = Replace(DeWord, Chr(149), "*")
   DeWord = Replace(DeWord, Chr(150), "-")
   DeWord = Replace(DeWord, Chr(151), "--")
   DeWord = Replace(DeWord, Chr(152), "~")
   DeWord = Replace(DeWord, Chr(153), "(TM)")
   DeWord = Replace(DeWord, Chr(154), "??")
   DeWord = Replace(DeWord, Chr(155), ">")
   DeWord = Replace(DeWord, Chr(156), "??")
   DeWord = Replace(DeWord, Chr(157), "??")
   DeWord = Replace(DeWord, Chr(158), "??")
   DeWord = Replace(DeWord, Chr(159), "??")
   DeWord = Replace(DeWord, Chr(160), "??")
   DeWord = Replace(DeWord, Chr(161), "??")
   DeWord = Replace(DeWord, Chr(162), "??")
   DeWord = Replace(DeWord, Chr(163), "??")
   DeWord = Replace(DeWord, Chr(164), "??")
   DeWord = Replace(DeWord, Chr(165), "??")
   DeWord = Replace(DeWord, Chr(166), "??")
   DeWord = Replace(DeWord, Chr(167), "??")
   DeWord = Replace(DeWord, Chr(168), """")
   DeWord = Replace(DeWord, Chr(169), "(C)")
   DeWord = Replace(DeWord, Chr(170), "??")
   DeWord = Replace(DeWord, Chr(171), "<<")
   DeWord = Replace(DeWord, Chr(172), "??")
   DeWord = Replace(DeWord, Chr(173), "-")
   DeWord = Replace(DeWord, Chr(174), "(R)")
   DeWord = Replace(DeWord, Chr(175), "??")
   DeWord = Replace(DeWord, Chr(176), "??")
   DeWord = Replace(DeWord, Chr(177), "??")
   DeWord = Replace(DeWord, Chr(178), "??")
   DeWord = Replace(DeWord, Chr(179), "??")
   DeWord = Replace(DeWord, Chr(180), "`")
   DeWord = Replace(DeWord, Chr(181), "??")
   DeWord = Replace(DeWord, Chr(182), "??")
   DeWord = Replace(DeWord, Chr(183), "*")
   DeWord = Replace(DeWord, Chr(184), ",")
   DeWord = Replace(DeWord, Chr(185), "??")
   DeWord = Replace(DeWord, Chr(186), "??")
   DeWord = Replace(DeWord, Chr(187), ">>")
   DeWord = Replace(DeWord, Chr(188), "1/4")
   DeWord = Replace(DeWord, Chr(189), "1/2")
   DeWord = Replace(DeWord, Chr(190), "3/4")
   DeWord = Replace(DeWord, Chr(191), "??")
   DeWord = Replace(DeWord, Chr(192), "??")
   DeWord = Replace(DeWord, Chr(193), "??")
   DeWord = Replace(DeWord, Chr(194), "??")
   DeWord = Replace(DeWord, Chr(195), "??")
   DeWord = Replace(DeWord, Chr(196), "??")
   DeWord = Replace(DeWord, Chr(197), "??")
   DeWord = Replace(DeWord, Chr(198), "??")
   DeWord = Replace(DeWord, Chr(199), "??")
   DeWord = Replace(DeWord, Chr(200), "??")
   DeWord = Replace(DeWord, Chr(201), "??")
   DeWord = Replace(DeWord, Chr(202), "??")
   DeWord = Replace(DeWord, Chr(203), "??")
   DeWord = Replace(DeWord, Chr(204), "??")
   DeWord = Replace(DeWord, Chr(205), "??")
   DeWord = Replace(DeWord, Chr(206), "??")
   DeWord = Replace(DeWord, Chr(207), "??")
   DeWord = Replace(DeWord, Chr(208), "??")
   DeWord = Replace(DeWord, Chr(209), "??")
   DeWord = Replace(DeWord, Chr(210), "??")
   DeWord = Replace(DeWord, Chr(211), "??")
   DeWord = Replace(DeWord, Chr(212), "??")
   DeWord = Replace(DeWord, Chr(213), "??")
   DeWord = Replace(DeWord, Chr(214), "??")
   DeWord = Replace(DeWord, Chr(215), "??")
   DeWord = Replace(DeWord, Chr(216), "??")
   DeWord = Replace(DeWord, Chr(217), "??")
   DeWord = Replace(DeWord, Chr(218), "??")
   DeWord = Replace(DeWord, Chr(219), "??")
   DeWord = Replace(DeWord, Chr(220), "??")
   DeWord = Replace(DeWord, Chr(221), "??")
   DeWord = Replace(DeWord, Chr(222), "??")
   DeWord = Replace(DeWord, Chr(223), "??")
   DeWord = Replace(DeWord, Chr(224), "??")
   DeWord = Replace(DeWord, Chr(225), "??")
   DeWord = Replace(DeWord, Chr(226), "??")
   DeWord = Replace(DeWord, Chr(227), "??")
   DeWord = Replace(DeWord, Chr(228), "??")
   DeWord = Replace(DeWord, Chr(229), "??")
   DeWord = Replace(DeWord, Chr(230), "??")
   DeWord = Replace(DeWord, Chr(231), "??")
   DeWord = Replace(DeWord, Chr(232), "??")
   DeWord = Replace(DeWord, Chr(233), "??")
   DeWord = Replace(DeWord, Chr(234), "??")
   DeWord = Replace(DeWord, Chr(235), "??")
   DeWord = Replace(DeWord, Chr(236), "??")
   DeWord = Replace(DeWord, Chr(237), "??")
   DeWord = Replace(DeWord, Chr(238), "??")
   DeWord = Replace(DeWord, Chr(239), "??")
   DeWord = Replace(DeWord, Chr(240), "??")
   DeWord = Replace(DeWord, Chr(241), "??")
   DeWord = Replace(DeWord, Chr(242), "??")
   DeWord = Replace(DeWord, Chr(243), "??")
   DeWord = Replace(DeWord, Chr(244), "??")
   DeWord = Replace(DeWord, Chr(245), "??")
   DeWord = Replace(DeWord, Chr(246), "??")
   DeWord = Replace(DeWord, Chr(247), "??")
   DeWord = Replace(DeWord, Chr(248), "??")
   DeWord = Replace(DeWord, Chr(249), "??")
   DeWord = Replace(DeWord, Chr(250), "??")
   DeWord = Replace(DeWord, Chr(251), "??")
   DeWord = Replace(DeWord, Chr(252), "??")
   DeWord = Replace(DeWord, Chr(253), "??")
   DeWord = Replace(DeWord, Chr(254), "??")
   DeWord = Replace(DeWord, Chr(255), "??")

End Function
 
Sample Usage:
 
n/a