Denne tar noe av skrivefeilene (kan utbedres betraktelig)

dim findArr
findArr = Array("?!","!?","!!","??")
dim replaceArr
replaceArr = Array("?","!","!","?")

dim i
i=0
for each item in findArr
while InStr(txt,item)>0
txt = replace(txt,item,replaceArr(i))
wend
i=1+1
next

---------------------------

Dom flesta killar går ju på dom snyggasta tjejerna va? Slobban och jag går direkt på andrasorteringa. Skadad gods!