UrlDeCode() med æø og å

Jeg har denne funktion som giver mig en lille firkant i stedet for æø eller å ??? Jeg ved ikke hvorledes jeg retter funktionen ?

Function URLDecode(sConvert)
    Dim aSplit
    Dim sOutput
    Dim I
    If IsNull(sConvert) Then
      URLDecode = ""
      Exit Function
    End If
   
    ' convert all pluses to spaces
    sOutput = REPLACE(sConvert, "+", " ")
   
    ' next convert %hexdigits to the character
    aSplit = Split(sOutput, "%")
   
    If IsArray(aSplit) Then
      sOutput = aSplit(0)
      For I = 0 to UBound(aSplit) - 1
        sOutput = sOutput & _
          Chr("&H" & Left(aSplit(i + 1), 2)) &_
          Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
      Next
    End If
   
    URLDecode = sOutput
End Function

er der nogle der kan rette den eller har en anden der virker ??

MVH Stig

P.S.
Grundet tidspres giver jeg 200 point for indlægget.