Определить содержат ли две строки одни и те же символы

Function zzz(ByVal A$, ByVal B$) As Boolean
Static di As Object
Dim x
If di Is Nothing Then
 Set di = CreateObject("scripting.dictionary")
Else
  di.RemoveAll
End If
A = Application.Trim(A)
B = Application.Trim(B)
If Len(A) <> Len(B) Then Exit Function
For Each x In Split(A)
  di.Item(x) = di.Item(x) + 1
Next
For Each x In Split(B)
  If Not di.exists(x) Then Exit Function
  di.Item(x) = di.Item(x) - 1
  If di.Item(x) = 0 Then di.Remove x
Next
If di.Count = 0 Then zzz = True
End Function

di.Item(x) = di.Item(x) - 1
* If di.Item(x) = 0 Then di.Remove x

Function zzzz(A, B) As Boolean
    Dim i&
    
    A = Application.Trim(A)
    B = Application.Trim(B)
 
    If Len(A) <> Len(B) Then Exit Function
 
    A = Split(A)
    B = Split(B)
 
    SortArray A
    SortArray B
 
    zzzz = True
    For i = 0 To UBound(A)
        If A(i) <> B(i) Then zzzz = False: Exit Function
    Next
End Function
 
 
Private Sub SortArray(ByRef A As Variant)
    Dim i As Long, j As Long
    Dim t As Variant
 
    'standard bubble sort loops
    For i = LBound(A) To UBound(A) - 1
        For j = i + 1 To UBound(A)
            If A(i) > A(j) Then    'change to < for descending order
                t = A(i)
                A(i) = A(j)
                A(j) = t
            End If
        Next j
    Next i
End Sub