Определить среднюю выработку за несколько дней

Dim no As Integer
Dim fa As String
Dim d1 as Integer
dim d2 as Integer
dim d3 as Integer
no = Val(InputBox("Введите табельный номер:";))
fa = InputBox("Введите фамилию:";)
d1 = Val(InputBox("Выработка 1 день:";))
d2 = Val(InputBox("Выработка 2 день:";))
d3 = Val(InputBox("Выработка 3 день:";))
dim sr as integer
 
sr = int((d1 + d2 + d3) / 3)
 
dim m1 as boolean, m2 as boolean, m3 as boolean
 
If d1 < sr then
m1 = true
End if
 
If d2 < sr then
m2 = true
End if
 
If  d3 < sr then
m3 = true
End if
 
form1.print "Табельный номер: " & no
form1.print "Фамилия: " & fa
form1.print "Средняя выработка: " & sr
If m1 = true then
form1.print "В 1 день выработка была меньшей, чем средняя и составляла " & d1
End if
If m2 = true then
form1.print "В 2 день выработка была меньшей, чем средняя и составляла " & d2
End if
If m3 = true then
form1.print "В 3 день выработка была меньшей, чем средняя и составляла " & d3
End if
End Sub

Dim N: N = Array("Фамилия", "Средняя выработка", "День с выработкой больше средней")
For i = 0 To 2
MSF1.TextMatrix(0, i) = N(i)
Next i
MSF1.TextMatrix(1, 0) = fa
MSF1.TextMatrix(1, 1) = sr
MSF1.TextMatrix(1, 2) = ?
End Sub