Funktion til erstat

Hej,
Jeg har siddet hele eftermiddagen nu, og forsøgt at få en funktion til at virke, men nu opgiver jeg.
Det er en funktion der skulle kunne erstatte nogle "mærklige" tegn efter en import af nogle tabeller.
Jeg fandt en funktion som terry har lagt på eksperten for længe siden, men hvis jeg bruger den så får jeg en Compile error - argument not optional...og det fatter jeg ikke en brik af !
Funktionen kalder jeg doTranslate og jeg har prøvet at kalde den med doTranslate.fldUpdate (bruger Access 2002)

Funktionen er her:
Function fldUpdate(sIn As String) As String
Dim sWork As String
Dim i As Integer

    sWork = sIn
   
    For i = 1 To Len(sWork)
   
        Select Case Asc(Mid(sWork, i, 1))
       
            Case 229
                Mid(sWork, i, 1) = "å"
            Case 43
                Mid(sWork, i, 1) = "Å"
            Case 230
                Mid(sWork, i, 1) = "æ"
            Case 198
                Mid(sWork, i, 1) = "Æ"
            Case 248
                Mid(sWork, i, 1) = "ø"
            Case 139
                Mid(sWork, i, 1) = "Ø"
            Case Else
        End Select
       
    Next i
   
    fldUpdate = sWork

End Function

Er der nogen der kan give en hånd her ? - Jeg er kørt fast !
På forhånd tak.