Надо объяснить код, сдавать в 18:00 сегодня(Игра кто хочет стать миллионером)

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim RA(1 To 15) As Integer, i As Integer, s, j As Integer
Dim Ans(1 To 15, 1 To 4) As String, Q(1 To 15) As String
Dim r(4) As Integer, rand As Integer, tmp As Integer
Dim CurQ As Integer, Money
Sub NextQ(CurQ)
    If CurQ > 15 Then Call Win: Exit Sub
    Shape1.Top = 5400 - 270 * (CurQ - 1)
    Label1(0).Caption = Q(CurQ)
    For i = 1 To 4
        Label1(i).Caption = Ans(CurQ, i)
        Label1(i).BackColor = vbBlack
    Next i
    Label1(5).Caption = Money(CurQ - 1)
    For i = 1 To 4
    r(i) = i
Next i
For i = 1 To 4
    rand = Int(Rnd() * 4) + 1
    If i <> rand Then
        tmp = r(i)
        r(i) = r(rand)
        r(rand) = tmp
    End If
Next i
For i = 1 To 4
    Label1(i).Caption = Ans(CurQ, r(i))
    If RA(CurQ) = r(i) Then tmp = i
    Label1(i).BackColor = vbBlack
Next i
RA(CurQ) = tmp
 
Label1(5).Caption = Money(CurQ - 1)
End Sub
 
Sub Newgame()
    Shape1.Top = 5400
    CurQ = 1
    Open App.Path + "\Q.txt" For Input As #1
         For i = 1 To 15
             Line Input #1, s
             s = Split(s, "*")
             Q(i) = s(0)
             For j = 1 To 4
                 Ans(i, j) = s(j)
             Next j
             RA(i) = Val(s(5))
         Next i
    Close #1
    Money = Array("0", "you have 500 $", "Ó âàñ óæå 1000 ðóáëåé", "Ó âàñ óæå 2000 ðóáëåé", "Ó âàñ óæå 3000 ðóáëåé", "Ó âàñ óæå 5000 ðóáëåé", "Ó âàñ óæå 10 000 ðóáëåé", "Ó âàñ óæå 15 000 ðóáëåé", "Ó âàñ óæå 25 000 ðóáëåé", "Ó âàñ óæå 50 000 ðóáëåé", "Ó âàñ óæå 100 000 ðóáëåé", "Ó âàñ óæå 200 000 ðóáëåé", "Ó âàñ óæå 400 000 ðóáëåé", "Ó âàñ óæå 800 000!", "Âû ïî÷òè ó öåëè, 1 500 000 ðóáëåé!", " 3 000 000 ðóáëåé")
    Call NextQ(CurQ)
End Sub
 
Private Sub Form_Load()
Form1.Hide
Randomize
    Newgame
End Sub
 
Private Sub Label1_Click(Index As Integer)
     If Index < 1 Or Index > 4 Then Exit Sub
     If Index = RA(CurQ) Then
        Label1(Index).BackColor = vbGreen
        DoEvents
        Sleep 300
        CurQ = CurQ + 1
        Call NextQ(CurQ)
     Else
         Label1(Index).BackColor = vbRed
        
         If MsgBox(you lose. One more game?", vbYesNo, "Lose") = vbYes Then
             Call Newgame
         Else
             Unload Me
         End If
     End If
End Sub
 
Sub Win()
 Form2.Hide
 Form3.Show
End Sub