Ошибка при создании функции - VB

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

Всем доброго времени суток! Нужна помощь. Задачка школьного уровня. С визуал бейсик столкнулся впервые. Суть задачи: заполнение массивов при нажатии на кнопку и нахождение макс.мин.массивов. На форме поставил кнопку, но при нажатии ошибка: " Expected End Sub ". Код кнопки:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Randomize
 
Function Find(s, d As Integer) As Integer
If s > d Then Find = s
End Function
 
Dim x(5), y(3), z(6) As Integer
Dim i, A, B, C, xmax, ymin, zmax As Integer
 
For i = 0 To 5
x(i) = Int(Rnd(100))
xmax = Find(x(i), xmax)
Next
 
For i = 0 To 3
y(i) = Int(Rnd(100))
Next
ymin = y(0)
For i = 1 To 3
If ymin > y(0) Then ymin = y(0)
Next
 
For i = 0 To 6
z(i) = Int(Rnd(100))
zmax = Fimd(z(i), zmax)
Next
 
End Sub

Всё вроде бы писал по инструкции со справочника. Среда - MS VB 6.0. Кстати когда функцию убираю, все норм вроде, потом когда заново прописываю, В конце кода End Sub сам меняется на End Function. Спасибо!

Решение задачи: «Ошибка при создании функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Randomize
 
Dim x(5), y(3), z(6) As Integer
Dim i, A, B, C, xmax, ymin, zmax As Integer
 
For i = 0 To 5
x(i) = Int(Rnd(100))
xmax = Find(x(i), xmax)
Next
 
For i = 0 To 3
y(i) = Int(Rnd(100))
Next
ymin = y(0)
For i = 1 To 3
If ymin > y(0) Then ymin = y(0)
Next
 
For i = 0 To 6
z(i) = Int(Rnd(100))
zmax = Fimd(z(i), zmax)
Next
 
 
End Sub
 
Private Sub Form_Load()
Function Find(s, d As Integer) As Integer
If s > d Then Find = s
End Function
End Sub