Выдать на экран наименьшую площадь и № треугольника - VB

Dim A(10) As Single, H(10) As Single, B(10) As Single
Dim min As Single, k As Integer
Private Sub CommandButton1_Click()
For i = 1 To 10
A(i) = InputBox("Введите основание треугольника")
ListBox1.AddItem (Str(A(i)))
Next
End Sub
 
 
Private Sub CommandButton2_Click()
For i = 1 To 10
H(i) = InputBox("Введите высоту треугольника")
ListBox2.AddItem (Str(H(i)))
Next
End Sub
 
Private Sub CommandButton3_Click()
For i = 1 To 10
B(i) = plochad(A(i), H(i))
ListBox3.AddItem (Str(B(i)))
Next
End Sub
Function plochad(x As Single, y As Single) As Single
plochad = (1 / 2) * x * y
End Function
 
Private Sub CommandButton4_Click()
min = B(1): k = 1
For i = 1 To 10
If B(i) < min Then min = B(i): k = i
Next
MsgBox "Треугольник с наименьшей площадью имеет номер" & min & "ее номер" & k
 
 
 
End Sub