Сожет кто код расшифровать (объяснить)

Dim a(), b(), c(), d() As Variant
Dim sc As Integer
Private Sub Command1_Click()
k = FreeFile()
    Open App.Path + "\" + "data.txt" For Input As #k
    Do
        Input #1, t$
        n = n + 1
    Loop Until EOF(k)
    n = n - 1
   ReDim a(n), b(n), c(n), d(n)
    Seek (k), 1
    For i = 0 To n
        Input #k, t
        s = Split(t)
        a(i) = Val(s(0)): b(i) = Val(s(1)): c(i) = Val(s(2)): d(i) = Val(s(3))
    Next i
    Close #k
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
End Sub
Function times(n As Integer)
Dim s As String
Dim hour As Integer
hour = 14
Dim min As Integer
min = 22
Dim tt As Integer
tt = min + n * 11
If tt < 60 Then
min = min + 11 * n
Else
hour = hour + tt \ 60
min = tt Mod 60
End If
s = hour & ":" & min
times = s
End Function
 
Function srednee(x() As Variant, n As Integer)
Dim sr As Double
sr = 0
For i = 0 To n
sr = sr + x(i)
Next i
srednee = sr / (n + 1)
End Function
 
Function search(x() As Variant, sred As Double)
 
Dim i As Integer
Dim max As Double
max = x(0)
 
For i = 0 To UBound(x)
If x(i) > max Then max = x(i)
 
Next i
search = max
 
End Function
Function search1(x() As Variant, sred As Double)
Dim i As Integer
Dim min As Double
min = x(0)
For i = 0 To UBound(x)
If x(i) < min Then min = x(i)
Next i
search1 = min
End Function
 
Function otklonenie(x() As Variant, sred As Double, n As Integer)
Dim cc As Integer
cc = 0
For i = 0 To n
If Abs(x(i) - sred) > sred * 0.14 Then
cc = cc + 1
End If
Next i
otklonenie = cc
End Function
 
Private Sub Command2_Click()
sc = 0
Text1 = "Среднее=" & Round(srednee(b(), UBound(b)), 3)
Text4 = "Среднее=" & Round(srednee(c(), UBound(c)), 3)
Text7 = "Среднее=" & Round(srednee(d(), UBound(d)), 3)
Text2 = Round(search(b(), srednee(b(), UBound(b))), 3)
Text5 = Round(search(c(), srednee(c(), UBound(c))), 3)
Text8 = Round(search(d(), srednee(d(), UBound(d))), 3)
Text3 = Round(search1(b(), srednee(b(), UBound(b))), 3)
Text6 = Round(search1(c(), srednee(c(), UBound(c))), 3)
Text9 = Round(search1(d(), srednee(d(), UBound(d))), 3)
sc = otklonenie(b(), srednee(b(), UBound(b)), UBound(b)) + otklonenie(c(), srednee(c(), UBound(c)), UBound(c)) + otklonenie(d(), srednee(d(), UBound(d)), UBound(d))
Text10 = sc
 
End Sub
 
Private Sub Command3_Click()
Picture1.Line (0, 0)-(0, 100)
Picture1.Line (0, 0)-(10, 0)
For i = 0 To UBound(b)
Picture1.Scale (-1, 33)-(12, -1)
Picture2.Scale (-1, 33)-(12, -1)
Picture3.Scale (-1, 33)-(12, -1)
Picture1.Line (i, b(i))-(i + 1, 0), RGB(0, 0, 0), B
Picture2.Line (i, c(i))-(i + 1, 0), RGB(0, 0, 0), B
Picture3.Line (i, d(i))-(i + 1, 0), RGB(0, 0, 0), B
     Next
End Sub
 
Private Sub Command4_Click()
Dim s As String
Dim i As Integer
Dim arifm As Double
arifm = 0
Dim maxi As Double
 k = FreeFile()
 
    Open App.Path + "\" + "data1.txt" For Output As #k
    For i = 0 To 4
    
    If b(i) > c(i) And b(i) > d(i) Then maxi = b(i)
    If c(i) > b(i) And c(i) > d(i) Then maxi = c(i)
    If d(i) > c(i) And d(i) > b(i) Then maxi = d(i)
    Print #k, times(i) & " максимальное показание = " & maxi & vbCrLf;
    Next i
    
    For i = 0 To 4
    If b(i) < c(i) And b(i) < d(i) Then mini = b(i)
    If c(i) < b(i) And c(i) < d(i) Then mini = c(i)
    If d(i) < c(i) And d(i) < b(i) Then mini = d(i)
    Print #k, times(i) & " минимальное показание = " & mini & vbCrLf;
    Next i
Close #k
End Sub
 
Private Sub Command5_Click()
End
End Sub
 
Private Sub Text1_Change()
 
End Sub