ПОмогите обьяснить что значить ЭТО всё!

Question

Private Function MyFunction(arg As Integer) As Double
x = 4.4
MyFunction = 1 - x / arg ^ 2
End Function

Private Sub Command1_Click()
Dim n As Integer
p = 1
n = 0
1:
n = n + 1
current_member = MyFunction(n)
p = p * current_member
If current_member > 0.0001 Then members = members + ", ": GoTo 1
Label3.Caption = "P = " + Str(Format(p, "#.0000"))
End Sub

РАспишите плиз что значит каждая команда, чтоб я смог это обьяснить и сам понял( плиз. Буду бллагодарен