Сделать код для программы VBA эксель

Код программы:
Dim Massiv() As Single, Size As Integer
Private Sub cmdVvodMassiva_Click()
Dim i, Maximus As Integer
Size = Val(txtSize.Text)
ReDim Massiv(Size)
i = 1
Do While i <= Size
Massiv(i) = Val(InputBox("Массив(" + Str(i) + ")=","Ввод массива"))
lstMassiv.AddItem "A(" + Str(i) + ")=" + Str(Massiv(i))
i = i + 1
Loop
End Sub
Private Sub cmdMaxElement_Click()
Dim i As Integer
Maximus = Massiv(1)
i = 1
Do Until i > Size
If Massiv(i) > Max Then Max = Massiv(i)
i = i + 1
Loop
txtMax.Text = Str(Max)
End Sub
1.Измените циклы в программе первый сделайте используя ключевое слово
«Until» (с постусловием), а второй с ключевым словом «While» (с
предусловием).
2.Измените код программы так, что бы она искала минимальный элемент в
массиве.