Azq

Witam, Mam mały problem z Visual Basic. Nie jestem specem od Informatyki wiec zwracam sie z prośbą do Was. A wiec..... mam do napisania program w którym sa podane długośći statków (120metrów 130metrów 80metrow 100metrow 30metrow) Rzecz polega na tym zeby program wybrał wszystkie statki których długość jest większa równa 100 metrów. I obliczył ich średnią długość.

Private Sub commandbutton1_Click()
n = textbox.1text
suma = 0
ile = 0
for i = 1 to n
liczba=Cells(1,i)
if liczba >= 100 Then
suma = suma + liczba
Else
End if
If liczba >=100 Then
ile = ile + 1
Else
End if
Next i
średnia = suma / ile
End Sub

Coś nie tak jest w tym co napisałem i nie wiem co i jak to poprawić z Góry dziekuje za pomoc
Pozdrawiam.