Ups so =D
Function MyInStr(myString)
Dim bFound
bFound = False
myArray = Array("&032", "&033", "&034", "&035", "&036", "&037", "&038", "&039", "&040", "& _
041", "&042", "&043", "&044", "&045", "&046", "&047", "&048", "&049", "&050" _
, "&051", "&052", "&053", "&054", "&055", "&056", "&057", "&058", "&059", "&060", "&061", "&062" _
, "&063", "&064", "&065", "&066", "&067", "&068", "&069", "&070", "&071", "&072", "&073", "&074", "&075", "&076", "&077", "&078", "&079", "&080", "&081", "&082", "&083", "&084", "&085", "&086", "&087", "&088", "&089", "&090", "&091", "&092", "&093", "&094", "&095", "&096", "&097", "&098", "&099", "&100", "&101", "&102", "&103", "&104", "&105", "&106", "&107", "&108", "&109", "&110", "&111", "&112", "&113", "&114", "&115", "&116", "&117", "&118", "&119", "&120", "&121", "&122", "&123", "&124", "&125", "&126", "&127", "&128", "&129", "&130", "&131", "&132", "&133", "&134", "&135", "&136", "&137", "&138", "&139", "&140", "&141", "&142", "&143", "&144", "&145", "&146", "&147", "&148", "&149", "&150", "&151", "&152", "&153", "&154", "&155", "&156", "&157", "&158", "&159", "&160", "&161", "&162", "&163", "&164", "&165", "&166", "&167", "&168", "&169", "&170", "&171", "&172", "&173", "&174", "&175", "&176", "&177", _
"&178", "&179", "&180", "&181", "&182", "&183", "&184", "&185", "&186", "&187", "&188", "&189", _
"&190", "&191", "&192", "&193", "&194", "&195", "&196", "&197", "&198", "&199", "&200", "&201", "&202", "&203", "&204", "&205", "&206", "&207", "&208", "&209", "&210", "&211", "&212", "&213", "&214", "&215", "&216", "&217", "&218", "&219", "&220", "&221", "&222", "&223", "&224", "&225", "&226", "&227", "&228", "&229", "&230", "&231", "&232", "&233", "&234", "&235", "&236", "&237", "&238", "&239", "&240", "&241", "&242", "&243", "&244", "&245", "&246", "&247", "&248", "&249", "&250", "&251", "&252", "&253", "&254", "&255")
For Each elem In myArray
If InStr(1, myString, elem) > 0 Then
bFound = True
Exit For
End If
Next
If bFound = True Then
Select Case elem
Case ("&032"): MyInStr = Replace(myString, elem, "[Leer]")
Case ("&033"): MyInStr = Replace(myString, elem, "!")
Case ("&034"): MyInStr = Replace(myString, elem, """")
Case ("&035"): MyInStr = Replace(myString, elem, "#")
Case ("&036"): MyInStr = Replace(myString, elem, "$")
Case ("&037"): MyInStr = Replace(myString, elem, "%")
Case ("&038"): MyInStr = Replace(myString, elem, "&")
Case ("&039"): MyInStr = Replace(myString, elem, "'")
Case ("&040"): MyInStr = Replace(myString, elem, "(")
Case ("&041"): MyInStr = Replace(myString, elem, ")")
Case ("&042"): MyInStr = Replace(myString, elem, "*")
Case ("&043"): MyInStr = Replace(myString, elem, "+")
Case ("&044"): MyInStr = Replace(myString, elem, ",")
Case ("&045"): MyInStr = Replace(myString, elem, "-")
Case ("&046"): MyInStr = Replace(myString, elem, ".")
Case ("&047"): MyInStr = Replace(myString, elem, "/")
Case ("&048"): MyInStr = Replace(myString, elem, "0")
Case ("&049"): MyInStr = Replace(myString, elem, "1")
Case ("&050"): MyInStr = Replace(myString, elem, "2")
Case ("&051"): MyInStr = Replace(myString, elem, "3")
Case ("&052"): MyInStr = Replace(myString, elem, "4")
Case ("&053"): MyInStr = Replace(myString, elem, "5")
Case ("&054"): MyInStr = Replace(myString, elem, "6")
Case ("&055"): MyInStr = Replace(myString, elem, "7")
Case ("&056"): MyInStr = Replace(myString, elem, "8")
Case ("&057"): MyInStr = Replace(myString, elem, "9")
Case ("&058"): MyInStr = Replace(myString, elem, ":")
Case ("&059"): MyInStr = Replace(myString, elem, ";")
Case ("&060"): MyInStr = Replace(myString, elem, "")
Case ("&063"): MyInStr = Replace(myString, elem, "?")
Case ("&064"): MyInStr = Replace(myString, elem, "@")
Case ("&065"): MyInStr = Replace(myString, elem, "A")
Case ("&066"): MyInStr = Replace(myString, elem, "B")
Case ("&067"): MyInStr = Replace(myString, elem, "C")
Case ("&068"): MyInStr = Replace(myString, elem, "D")
Case ("&069"): MyInStr = Replace(myString, elem, "E")
Case ("&070"): MyInStr = Replace(myString, elem, "F")
Case ("&071"): MyInStr = Replace(myString, elem, "G")
Case ("&072"): MyInStr = Replace(myString, elem, "H")
Case ("&073"): MyInStr = Replace(myString, elem, "I")
Case ("&074"): MyInStr = Replace(myString, elem, "J")
Case ("&075"): MyInStr = Replace(myString, elem, "K")
Case ("&076"): MyInStr = Replace(myString, elem, "L")
Case ("&077"): MyInStr = Replace(myString, elem, "M")
Case ("&078"): MyInStr = Replace(myString, elem, "N")
Case ("&079"): MyInStr = Replace(myString, elem, "O")
Case ("&080"): MyInStr = Replace(myString, elem, "P")
Case ("&081"): MyInStr = Replace(myString, elem, "Q")
Case ("&082"): MyInStr = Replace(myString, elem, "R")
Case ("&083"): MyInStr = Replace(myString, elem, "S")
Case ("&084"): MyInStr = Replace(myString, elem, "T")
Case ("&085"): MyInStr = Replace(myString, elem, "U")
Case ("&086"): MyInStr = Replace(myString, elem, "V")
Case ("&087"): MyInStr = Replace(myString, elem, "W")
Case ("&088"): MyInStr = Replace(myString, elem, "X")
Case ("&089"): MyInStr = Replace(myString, elem, "Y")
Case ("&090"): MyInStr = Replace(myString, elem, "Z")
Case ("&091"): MyInStr = Replace(myString, elem, "[")
Case ("&092"): MyInStr = Replace(myString, elem, "\")
Case ("&093"): MyInStr = Replace(myString, elem, "]")
Case ("&094"): MyInStr = Replace(myString, elem, "^")
Case ("&095"): MyInStr = Replace(myString, elem, "_")
Case ("&096"): MyInStr = Replace(myString, elem, "`")
Case ("&097"): MyInStr = Replace(myString, elem, "a")
Case ("&098"): MyInStr = Replace(myString, elem, "b")
Case ("&099"): MyInStr = Replace(myString, elem, "c")
Case ("&100"): MyInStr = Replace(myString, elem, "d")
Case ("&101"): MyInStr = Replace(myString, elem, "e")
Case ("&102"): MyInStr = Replace(myString, elem, "f")
Case ("&103"): MyInStr = Replace(myString, elem, "g")
Case ("&104"): MyInStr = Replace(myString, elem, "h")
Case ("&105"): MyInStr = Replace(myString, elem, "i")
Case ("&106"): MyInStr = Replace(myString, elem, "j")
Case ("&107"): MyInStr = Replace(myString, elem, "k")
Case ("&108"): MyInStr = Replace(myString, elem, "l")
Case ("&109"): MyInStr = Replace(myString, elem, "m")
Case ("&110"): MyInStr = Replace(myString, elem, "n")
Case ("&111"): MyInStr = Replace(myString, elem, "o")
Case ("&112"): MyInStr = Replace(myString, elem, "p")
Case ("&113"): MyInStr = Replace(myString, elem, "q")
Case ("&114"): MyInStr = Replace(myString, elem, "r")
Case ("&115"): MyInStr = Replace(myString, elem, "s")
Case ("&116"): MyInStr = Replace(myString, elem, "t")
Case ("&117"): MyInStr = Replace(myString, elem, "u")
Case ("&118"): MyInStr = Replace(myString, elem, "v")
Case ("&119"): MyInStr = Replace(myString, elem, "w")
Case ("&120"): MyInStr = Replace(myString, elem, "x")
Case ("&121"): MyInStr = Replace(myString, elem, "y")
Case ("&122"): MyInStr = Replace(myString, elem, "z")
Case ("&123"): MyInStr = Replace(myString, elem, "{")
Case ("&124"): MyInStr = Replace(myString, elem, "|")
Case ("&125"): MyInStr = Replace(myString, elem, "}")
Case ("&126"): MyInStr = Replace(myString, elem, "~")
Case ("&127"): MyInStr = Replace(myString, elem, "")
Case ("&128"): MyInStr = Replace(myString, elem, "")
Case ("&129"): MyInStr = Replace(myString, elem, "")
Case ("&130"): MyInStr = Replace(myString, elem, "")
Case ("&131"): MyInStr = Replace(myString, elem, "")
Case ("&132"): MyInStr = Replace(myString, elem, "")
Case ("&133"): MyInStr = Replace(myString, elem, "
")
Case ("&134"): MyInStr = Replace(myString, elem, "")
Case ("&135"): MyInStr = Replace(myString, elem, "")
Case ("&136"): MyInStr = Replace(myString, elem, "")
Case ("&137"): MyInStr = Replace(myString, elem, "")
Case ("&138"): MyInStr = Replace(myString, elem, "")
Case ("&139"): MyInStr = Replace(myString, elem, "")
Case ("&140"): MyInStr = Replace(myString, elem, "")
Case ("&141"): MyInStr = Replace(myString, elem, "")
Case ("&142"): MyInStr = Replace(myString, elem, "")
Case ("&143"): MyInStr = Replace(myString, elem, "")
Case ("&144"): MyInStr = Replace(myString, elem, "")
Case ("&145"): MyInStr = Replace(myString, elem, "")
Case ("&146"): MyInStr = Replace(myString, elem, "")
Case ("&147"): MyInStr = Replace(myString, elem, "")
Case ("&148"): MyInStr = Replace(myString, elem, "")
Case ("&149"): MyInStr = Replace(myString, elem, "")
Case ("&150"): MyInStr = Replace(myString, elem, "")
Case ("&151"): MyInStr = Replace(myString, elem, "")
Case ("&152"): MyInStr = Replace(myString, elem, "")
Case ("&153"): MyInStr = Replace(myString, elem, "")
Case ("&154"): MyInStr = Replace(myString, elem, "")
Case ("&155"): MyInStr = Replace(myString, elem, "")
Case ("&156"): MyInStr = Replace(myString, elem, "")
Case ("&157"): MyInStr = Replace(myString, elem, "")
Case ("&158"): MyInStr = Replace(myString, elem, "")
Case ("&159"): MyInStr = Replace(myString, elem, "")
Case ("&160"): MyInStr = Replace(myString, elem, "")
Case ("&161"): MyInStr = Replace(myString, elem, "¡")
Case ("&162"): MyInStr = Replace(myString, elem, "¢")
Case ("&163"): MyInStr = Replace(myString, elem, "£")
Case ("&164"): MyInStr = Replace(myString, elem, "¤")
Case ("&165"): MyInStr = Replace(myString, elem, "¥")
Case ("&166"): MyInStr = Replace(myString, elem, "¦")
Case ("&167"): MyInStr = Replace(myString, elem, "§")
Case ("&168"): MyInStr = Replace(myString, elem, "¨")
Case ("&169"): MyInStr = Replace(myString, elem, "©")
Case ("&170"): MyInStr = Replace(myString, elem, "ª")
Case ("&171"): MyInStr = Replace(myString, elem, "«")
Case ("&172"): MyInStr = Replace(myString, elem, "¬")
Case ("&173"): MyInStr = Replace(myString, elem, "")
Case ("&174"): MyInStr = Replace(myString, elem, "®")
Case ("&175"): MyInStr = Replace(myString, elem, "¯")
Case ("&176"): MyInStr = Replace(myString, elem, "°")
Case ("&177"): MyInStr = Replace(myString, elem, "±")
Case ("&178"): MyInStr = Replace(myString, elem, "²")
Case ("&179"): MyInStr = Replace(myString, elem, "³")
Case ("&180"): MyInStr = Replace(myString, elem, "´")
Case ("&181"): MyInStr = Replace(myString, elem, "µ")
Case ("&182"): MyInStr = Replace(myString, elem, "¶")
Case ("&183"): MyInStr = Replace(myString, elem, "·")
Case ("&184"): MyInStr = Replace(myString, elem, "¸")
Case ("&185"): MyInStr = Replace(myString, elem, "¹")
Case ("&186"): MyInStr = Replace(myString, elem, "º")
Case ("&187"): MyInStr = Replace(myString, elem, "»")
Case ("&188"): MyInStr = Replace(myString, elem, "¼")
Case ("&189"): MyInStr = Replace(myString, elem, "½")
Case ("&190"): MyInStr = Replace(myString, elem, "¾")
Case ("&191"): MyInStr = Replace(myString, elem, "¿")
Case ("&192"): MyInStr = Replace(myString, elem, "À")
Case ("&193"): MyInStr = Replace(myString, elem, "Á")
Case ("&194"): MyInStr = Replace(myString, elem, "Â")
Case ("&195"): MyInStr = Replace(myString, elem, "Ã")
Case ("&196"): MyInStr = Replace(myString, elem, "Ä")
Case ("&197"): MyInStr = Replace(myString, elem, "Å")
Case ("&198"): MyInStr = Replace(myString, elem, "Æ")
Case ("&199"): MyInStr = Replace(myString, elem, "Ç")
Case ("&200"): MyInStr = Replace(myString, elem, "È")
Case ("&201"): MyInStr = Replace(myString, elem, "É")
Case ("&202"): MyInStr = Replace(myString, elem, "Ê")
Case ("&203"): MyInStr = Replace(myString, elem, "Ë")
Case ("&204"): MyInStr = Replace(myString, elem, "Ì")
Case ("&205"): MyInStr = Replace(myString, elem, "Í")
Case ("&206"): MyInStr = Replace(myString, elem, "Î")
Case ("&207"): MyInStr = Replace(myString, elem, "Ï")
Case ("&208"): MyInStr = Replace(myString, elem, "Ð")
Case ("&209"): MyInStr = Replace(myString, elem, "Ñ")
Case ("&210"): MyInStr = Replace(myString, elem, "Ò")
Case ("&211"): MyInStr = Replace(myString, elem, "Ó")
Case ("&212"): MyInStr = Replace(myString, elem, "Ô")
Case ("&213"): MyInStr = Replace(myString, elem, "Õ")
Case ("&214"): MyInStr = Replace(myString, elem, "Ö")
Case ("&215"): MyInStr = Replace(myString, elem, "×")
Case ("&216"): MyInStr = Replace(myString, elem, "Ø")
Case ("&217"): MyInStr = Replace(myString, elem, "Ù")
Case ("&218"): MyInStr = Replace(myString, elem, "Ú")
Case ("&219"): MyInStr = Replace(myString, elem, "Û")
Case ("&220"): MyInStr = Replace(myString, elem, "Ü")
Case ("&221"): MyInStr = Replace(myString, elem, "Ý")
Case ("&222"): MyInStr = Replace(myString, elem, "Þ")
Case ("&223"): MyInStr = Replace(myString, elem, "ß")
Case ("&224"): MyInStr = Replace(myString, elem, "à")
Case ("&225"): MyInStr = Replace(myString, elem, "á")
Case ("&226"): MyInStr = Replace(myString, elem, "â")
Case ("&227"): MyInStr = Replace(myString, elem, "ã")
Case ("&228"): MyInStr = Replace(myString, elem, "ä")
Case ("&229"): MyInStr = Replace(myString, elem, "å")
Case ("&230"): MyInStr = Replace(myString, elem, "æ")
Case ("&231"): MyInStr = Replace(myString, elem, "ç")
Case ("&232"): MyInStr = Replace(myString, elem, "è")
Case ("&233"): MyInStr = Replace(myString, elem, "é")
Case ("&234"): MyInStr = Replace(myString, elem, "ê")
Case ("&235"): MyInStr = Replace(myString, elem, "ë")
Case ("&236"): MyInStr = Replace(myString, elem, "ì")
Case ("&237"): MyInStr = Replace(myString, elem, "í")
Case ("&238"): MyInStr = Replace(myString, elem, "î")
Case ("&239"): MyInStr = Replace(myString, elem, "ï")
Case ("&240"): MyInStr = Replace(myString, elem, "ð")
Case ("&241"): MyInStr = Replace(myString, elem, "ñ")
Case ("&242"): MyInStr = Replace(myString, elem, "ò")
Case ("&243"): MyInStr = Replace(myString, elem, "ó")
Case ("&244"): MyInStr = Replace(myString, elem, "ô")
Case ("&245"): MyInStr = Replace(myString, elem, "õ")
Case ("&246"): MyInStr = Replace(myString, elem, "ö")
Case ("&247"): MyInStr = Replace(myString, elem, "÷")
Case ("&248"): MyInStr = Replace(myString, elem, "ø")
Case ("&249"): MyInStr = Replace(myString, elem, "ù")
Case ("&250"): MyInStr = Replace(myString, elem, "ú")
Case ("&251"): MyInStr = Replace(myString, elem, "û")
Case ("&252"): MyInStr = Replace(myString, elem, "ü")
Case ("&253"): MyInStr = Replace(myString, elem, "ý")
Case ("&254"): MyInStr = Replace(myString, elem, "þ")
Case ("&255"): MyInStr = Replace(myString, elem, "ÿ")
End Select
End If
End Function