Программа на VBA в Excel

[FreeAlia]

Здравствуйте. Программа производит подсчет символов в алфавите введенной последовательности, определяет частоту появления каждого из символов и сумму всех символов. Результаты автоматически заносятся в таблицу. Дан текст, не могу разобраться, что такое 1i,2i,3i? Зачем их три, и что им присваивается в течение всей программы и вообще что программа делает поэтапно. Заранее благодарю!

Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
End Sub
Private Sub ListBox1_Click()
End Sub
Dim str, res, b As String
Dim i1, i2, i3, all, aalb As Integer
Private Sub Ok_Click()
i1 = 1
i2 = 1
Do While (Len(TextBox1.Value) > 1)
b = Left(TextBox1.Value, 1)
i2 = 1
i3 = 0
Do While (i2 < i1)
If (Лист1.Cells(i2, 1) = b) Then
Лист1.Cells(i2, 2) = Лист1.Cells(i2, 2) + 1
i3 = 1
all = all + 1
End If
i2 = i2 + 1
Loop
If (i3 = 0) Then
Лист1.Cells(i1, 1) = b
aalb = aalb + 1
Лист1.Cells(i1, 2) = 1
i1 = i1 + 1
all = all + 1
End If
TextBox1.Value = Right(TextBox1.Value, Len(TextBox1.Value) - 1)
Loop
b = Left(TextBox1.Value, 1)
i2 = 1
i3 = 0
Do While (i2 < i1)
If (Лист1.Cells(i2, 1) = b) Then
aalb = aalb + 1
Лист1.Cells(i2, 2) = Лист1.Cells(i2, 2) + 1
all = all + 1
i3 = 1
End If
i2 = i2 + 1
Loop
If (i3 = 0) Then
Лист1.Cells(i1, 1) = b
Лист1.Cells(i1, 2) = 1
all = all + 1
End If
Лист1.Cells(i1 + 1, 2) = all
Лист1.Cells(i1 + 1, 1) = aalb - 1
i3 = 1
Do While (i3 < i1)
Лист1.Cells(i3, 3) = Лист1.Cells(i3, 2) / all
i3 = i3 + 1
Loop
i3 = 1
TextBox1.Value = ""
End Sub