Kontrollera och ersätta tecken

Kanske inte helt optimalt, och möjligen går det att göra på ett bättre sätt med regular expressions, men en fungerande funktion kan se ut så här:

function ReplaceChars (strReplace)
	strReplace = Replace (strReplace, "å", "a")
	strReplace = Replace (strReplace, "ä", "a")
	strReplace = Replace (strReplace, "ö", "o")
	strReplace = Replace (strReplace, "Å", "A")
	strReplace = Replace (strReplace, "Ä", "A")
	strReplace = Replace (strReplace, "Ö", "O")
	strReplace = Replace (strReplace, " ", "_")
	ReplaceChars = strReplace
end function

Mvh,

Jag har gjort ngt liknande, det var regular expressions jag hade tänkt mig men jag är inte så duktig på det.
Tack i allafall:-)