Store/små bogstaver i Replace

Har denne kode, og strenget jeg får returneret indeholder pludselig kun små bogstaver... Er der en måde,man kan checke strengen lavet i LCase, uden at den "bliver til det"? Håber I forstår :)

Function filterString(str)
    Dim strBadWords, strReplaceWords
    strBadWords = "klam,lort"
    strReplaceWords = "sød,rose"
    'Laver arrays
    arrBadWords = Split(strBadWords,",")
    arrReplaceWords = Split(strReplaceWords,",")
    'Kører ord igennem
    For i=0 To UBound(arrBadWords)
        str = Replace(LCase(str), arrBadWords(i), arrReplaceWords(i))
    Next   
    filterString = str
End Function