Помогите несчастному идиоту разобраться с функцияни в Vb6

Помогите несчастному идиоту разобраться с функцияни в VB6 что я делаю не так
Вот прога она работает норьмально

Private Sub Command1_Click()
Dim a, x, z, i, y, p, n As Variant
List1.Clear
List2.Clear
Max = -1E+30
Min = 1E+30
a = Val(InputBox("A=", "??????? A", "3"))
For x = 1 To 4.4 Step 0.5
z = (x ^ 2) ^ (1 / 3) / (Log(x) - 2)
If z > a Then
s = 0
For i = 1 To 5
s = s + x ^ i / Sqr(z)
Next i
y = z + s
Else
p = 1
For n = 3 To 10
p = p * 2 * z / n
Next n
y = p
End If
List1.AddItem Format(x, "##.###")
List2.AddItem Format(y, "#.##########")
If y > Max Then Max = y
If y < Min Then Min = y
Next x
With Me
.Label1.Caption = "max" & Str(Max)
.Label2.Caption = "min" & Format(Min, "#.##########")
End With
End Sub



Пытаюсь сделать её в функции(математику) в дополнительном модуле не чего не получается подскажите что надо оставить в форме а что в модуле. Я что то совсем запутался И
Ну очень надо подскажите.

[SwiMMeR]

compaq
1. если запихать эту процедуру как модуль, то объект надо указывать начиная с имени формы
2. Функция должна возвращать значение. При переделке процедуры в функцию надо приписать
имя_функции=значение