Обьясните как работает это программа(VBA)

[Desyat]

Option Explicit

Dim S
Private Sub Комманда1_Click()
Dim SH(1 To 10)
Dim H, Z() As String
Dim R, C
SH(1) = "3"
SH(2) = "3'"
SH(3) = "1,2,4,6"
SH(4) = "3,5,10"
SH(5) = "4,5"
SH(6) = "3"
SH(7) = "8"
SH(8) = "7,9"
SH(9) = "8"
SH(10) = "4"
S = "1,"
QWERT SH, 1
MsgBox S
End Sub

Sub QWERT(W, X)
Dim C
Dim Z() As String
If InStr(1, W(X), ",") > 0 Then
For C = 0 To UBound(Split(W(X), ","))
If InStr(1, S, Val(Split(W(X), ",")(C))) = 0 Then
S = S & Val(Split(W(X), ",")(C)) & ","
QWERT W, Val(Split(W(X), ",")(C))
End If
Next C
Else
If InStr(1, S, Val(W(X))) = 0 Then
S = S & Val(W(X)) & ","
QWERT W, Val((W(X)))
End If
End If
End Sub

[was3110]

А Вы назначение программы знаете?
По моему это связано с обходом узлов дерева (или графа)...
Обход начинается с первого узла, а затем идет на тот узел(или узлы), которые указаны в данном элемента массива(узле). Если узел уже посещался, то повторы не допускаются...