Не получается сделать начало в программе - VB

Формулировка задачи:

Условие: найти минимальное значение массива B, содержащего значение функции G=g^2-G^4 на промежутке 0<=g<=10 с шагом дельта g=0,2. В том, что это одномерный массив разобрался и как найти максимум тоже, а вот как записать начало не знаю. Я сделал начало как формируется массив, но он почему-то не работает( Это первый путь, через оператор do :

Option Base 1
Private Sub Command1_Click()
Dim k As Integer, b() As Single, i As Integer, g As Integer
k = InputBox("Введите размерность массива ")
ReDim g(k)
x = 0
Do
For i = 1 To k
b(i) =g^ 2 - g^ 4
Print "g(i)="
Next
x = x + 0.2
Loop While x <= 10
Print " Исходная матрица"
For i = 1 To k
Print g(i);
Next
End Sub
 
а это второй путь;
Option Base 1
Private Sub Command1_Click()
Dim k As Integer, b() As Single, i As Integer, g As Integer
k = (12 - 0) / 0.2 + 1
ReDim b(1 To k)
x = 0
For i = 1 To k
b(i) = g ^ 2 - g ^ 4
g= g + 0.2
Next
Print " Исходная матрица"
For i = 1 To k
Print g(i);
Next
End Sub

И в общем не одна программа не работает(

Решение задачи: «Не получается сделать начало в программе»

textual
                            Листинг программы 
                        

                            Option Base 1
Private Sub Command1_Click()
    Dim k As Integer, b() As Single, dg As Double, g As Double, min As Single
    dg = 0.2 'k=(10/0.2) +1
    For g = 0 To 10 Step dg
         k = k + 1
         ReDim Preserve b(k)
         b(k) = g ^ 2 - g ^ 4
         If CStr(g) = "5" Then CurrentY = 0
         If g >= 5 Then CurrentX = 3000
         Print "g = " & g, "b(" & k & ")= " & b(k)
    Next g
    min = b(1)
    For k = 1 To UBound(b)
         If min > b(k) Then min = b(k)
    Next k
    Print " Минимальное значение массива = "; min
End Sub
                        