XL2002: The TextVisualLayout Parameter Is Not Available for the OpenText Method in Excel 2002

Sub ReverseUsedRange()
Dim mychar As String
Dim mynewstring As String
Dim mycurstring As String
Dim mycell As Range

For Each mycell In ActiveSheet.UsedRange
    If Not IsNumeric(mycell.Text) And mycell.Formula = mycell.Text Then
        mystring = mycell.Text
        'start value for RTL state
        i = 1
        textlen = Len(mystring)
        rtlstate = GetCharDirection(Mid(mystring, i, 1))
        
        'Loop through all characters in cell
        While i <= textlen
            mychar = Mid(mystring, i, 1)
            x = GetCharDirection(mychar)
            If x = rtlstate Or x = 0 Then
                mycurstring = mycurstring & mychar
            Else
                'If RTL state is different then append the characters that were
                'collected in mycurstring to mynewstring
                'Reverse mycurstring if it contains RTL characters
                If rtlstate = 1 Or rtlstate = 0 Then
                    mynewstring = mynewstring & mycurstring
                Else
                    mynewstring = mynewstring & StrReverse(mytext)
                End If
                mycurstring = mychar
                rtlstate = x
            End If
            i = i + 1
        Wend
        'Add the last characters that are still in mycurstring
        If rtlstate = 1 Or rtlstate = 0 Then
            mynewstring = mynewstring & mycurstring
        Else
            mynewstring = mynewstring & StrReverse(mycurstring)
        End If
        
        'mycell.Offset(rowoffset:=0, columnoffset:=2).Value = mynewstring
        mycell.Value = mynewstring
        mynewstring = ""
        mycurstring = ""
    End If
Next mycell
End Sub
 
Function GetCharDirection(mychar As String) As Integer
'Input value: One-character string
'Output value: 2 for right-to-left, 0 for neutral, 1 for left-to-right character
'Right to Left
If AscW(mychar) >= 1424 And AscW(mychar) <= 1791 Then
    GetCharDirection = 2
'Neutral
ElseIf InStr(1, " .,;:-_?!+*)(/\}{][=<>|'" & Chr(34), mychar, vbTextCompare) Then
    GetCharDirection = 0
Else
'Assume that all other characters will be left-to-right ones
    GetCharDirection = 1
End If
End Function