text=%EF%F0%E8%E2%E5%F2 а должно быть привет

Private Sub Test()
    Dim st As String, stRez As String, i As Integer, stCharCode As String
    
    st = "%EF%F0%E8%E2%E5%F2"
    stRez = ""
    For i = 1 To Len(st) / 3
        stCharCode = Mid$(st, (i - 1) * 3 + 2, 2)
        stRez = stRez & Chr$(Val("&H" & stCharCode))
    Next
    MsgBox stRez
End Sub

Public Function URLDecode(sEncodedURL As String) As String
    On Error Goto Catch
    
    Dim iLoop As Integer
    Dim sRtn As String
    Dim sTmp As String
    
 
 
    If Len(sEncodedURL) > 0 Then
        ' Loop through each char
 
 
        For iLoop = 1 To Len(sEncodedURL)
            sTmp = Mid(sEncodedURL, iLoop, 1)
            sTmp = Replace(sTmp, "+", " ")
            ' If char is % then get next two chars
            ' and convert from HEX to decimal
 
 
            If sTmp = "%" and LEN(sEncodedURL) + 1 > iLoop + 2 Then
                sTmp = Mid(sEncodedURL, iLoop + 1, 2)
                sTmp = Chr(CDec("&H" & sTmp))
                ' Increment loop by 2
                iLoop = iLoop + 2
            End If
            sRtn = sRtn & sTmp
        Next iLoop
        URLDecode = sRtn
    End If
    Finally:
    Exit Function
    Catch:
    URLDecode = ""
    Resume Finally
End Function