Flere funktioner i én Function ??

Hej folkens,

jeg har et lille problem og det er at jeg ikke helt kan finde ud af hvordan jeg får flere funktioner til at virke på samme tekstfelt. indtil vidre har jeg kun kunne få en af dem til at virke ved at lave 2 "Functions" efter hinanden, men det holder vist ikke, man må da kunne samle de 2 i en "function" så begge virker, ik ? :)

Her er min kode:

Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strText,vbCrLf,"<BR>")
            fncTextChange = Replace(strText,"'","´")
End Function

På forhånd tak !