помогите исправить ошибку, в чем дело?

[studen`]

Доброго времени суток!!! есть вот такой кусочек программы
Private Type akva
nazv As String * 10
razm As Integer
Gh As Integer
pH As Integer
temp As Integer
End Type
Dim riba As akva
Const fn = "d:\f1.dat"
Dim l As Integer
Private Sub new_Click()
list1.Clear
l = Len(riba)
Private Type akva
nazv As String * 10
razm As Integer
Gh As Integer
pH As Integer
temp As Integer
End Type
Dim riba As akva
Const fn = "d:\f1.dat"
Dim l As Integer
Private Sub new_Click()
list1.Clear
l = Len(riba)
Open fn For Random As #1 Len = l
Close #1
Kill fn
Open fn For Random As #1 Len = l
i% = 0
Do
i = i + 1
riba.nazv = InputBox("******")
riba.razm = Val(InputBox("*****"))
riba.Gh = Val(InputBox("****"))
riba.pH = Val(InputBox("*****"))
riba.temp = Val(InputBox("***"))
Put #1, i, riba
kl% = MsgBox("dal`she?", 36)
Loop Until kl = 7
Close #1
End Sub

при запуске vb ругается на строку " Open fn For Random As #1 Len = l"

не пойму в чем дело, помогите. Заренее спасибо!

[GSerg]

Если у автора вопроса не нашлось времени применить тэги форматирования кода и назвать ошибку, то и у меня вряд ли найдётся время разбирать нечитаемую простыню, параллельно угадывая, какая ошибка произошла.

[Twister]

1. Используй форматирование кода - читать не возможно...
2. Что именно он говорит
3. Попробуй явно указать длинну

[studen`]

Ошибку исправил, спасибо за критику )))