VBA implementation random input combination code, query unique identification code

Record background:

You need to query the combination code in Excel, the corresponding unique identification code.

Example combination code: 4+5+6+9+1*2 Identification Code: A1

interface random input combination code: 1*2+4+5+6+9 output Identification code: A1

VBA implementation:

Private Sub CommandButton1_Click ()
Textbox2.value = ""
Dim str, Searchvalue
Dim I
i = 1
Searchvalue = Textbox1.value

Dim arrsearchvaluelist
Arrsearchvaluelist = Split (searchvalue, "+")
' MsgBox UBound (arrsearchvaluelist)-LBound (Arrsearchvaluelist)
Dim seardict
Set seardict = CreateObject ("Scripting.Dictionary")
Dim k&
For k = 0 to UBound (arrsearchvaluelist)
Seardict (Arrsearchvaluelist (k)) = ""
Next

Dim Txtresult
Txtresult = Textbox2.value

For R = 1 to Worksheets (1). UsedRange.Rows.Count
str = Worksheets (1). Cells (R, 1). Value
Dim arrsourcevaluelist
Arrsourcevaluelist = Split (str, "+")

If (UBound (arrsearchvaluelist)-LBound (arrsearchvaluelist)) = (UBound (arrsourcevaluelist)-LBound ( Arrsourcevaluelist) Then
Dim J&, a&
A = 0
For j = 0 to UBound (arrsourcevaluelist)
If seardict.exists (Arrsourcevaluelist (j)) Then
A = a + 1
Else
A = A-1
End If
Next
If ((A-1) = (UBound (arrsearchvaluelist)-LBound (arrsearchvaluelist)) Then
If Txtresult = "Then
Txtresult = str
Else
Txtresult = txtresult & "|" & Str
End If
End If
Set d = Nothing
End If
i = i + 1
Next

Textbox2.value = Txtresult
End Sub

VBA implementation random input combination code, query unique identification code