URL encoding ved æ,ø og å

Jeg har brug for at overføre en mails subject til en website via en querystring i URL'en. Jeg får bare et problem når mails'ne har æ, ø og å i subejctet.

Jeg URL encoder med koden:

Private Function URLEncode(str As String) As String
    Dim strTemp, strChar As String
    strTemp = ""
    strChar = ""
    Dim nTemp, nAsciiVal As Integer

    For nTemp = 1 To Len(str)
        nAsciiVal = Asc(Mid(str, nTemp, 1))
        If ((nAsciiVal < 123) And (nAsciiVal > 96)) Then
        strTemp = strTemp & Chr(nAsciiVal)
        ElseIf ((nAsciiVal < 91) And (nAsciiVal > 64)) Then
        strTemp = strTemp & Chr(nAsciiVal)
        ElseIf ((nAsciiVal < 58) And (nAsciiVal > 47)) Then
        strTemp = strTemp & Chr(nAsciiVal)
        Else
        strChar = Trim(Hex(nAsciiVal))
        If nAsciiVal < 16 Then
            strTemp = strTemp & "%0" & strChar
        Else
            strTemp = strTemp & "%" & strChar
        End If
        End If
    Next
    URLEncode = strTemp
End Function

Men denne kode omdanner æøå til a%F8%E5, hvorefter jeg så ikke kan hente den rigtige subject via querystringen.

Er der nogen der har en ide til hvordan jeg får ændret æ,ø og å til f. eks ae, o, og aa?