Visual Basic 6 - help array non valorizzata!!!

BUON GIORNO A TUTTI !!!!
IL MIO PROBLEMA E' IL SEGUENTE:
LEGGO UN FILE CON VARIE RIGHE DA UN MINIMO DI 4 A UN MASSIMO DI 18 ...
PERO QUANDO NON TROVO LA RIGA L' ARRAY RELETIVA MI DA ERRORE COME POSSO AGGIRARE L' ERRORE ?

QUI DI SEGUITO RIPORTO IL CODICE:


array1 = Split(res(0), ":"
array2 = Split(res(1), ":"
array3 = Split(res(2), ":"
array4 = Split(res(3), ":"
array5 = Split(res(4), ":"
array6 = Split(res(5), ":"
array7 = Split(res(6), ":"
array8 = Split(res(7), ":"
array9 = Split(res(8), ":"
array10 = Split(res(9), ":"
array11 = Split(res(10), ":"
array12 = Split(res(11), ":"
array13 = Split(res(12), ":"
array14 = Split(res(13), ":"
array15 = Split(res(14), ":"
array16 = Split(res(15), ":"
array17 = Split(res(16), ":"
array18 = Split(res(17), ":"
array19 = Split(res(18), ":"


If array1(0) <> "s" Then
Form2.Text1(0).Text = array1(0) & array1(3)
Form2.Text1(1).Text = array1(7)
End If
If array2(0) <> "s" Then
Form3.Text1(0).Text = array2(0) & array2(3)
Form3.Text1(1).Text = array2(7)
End If
If array3(0) <> "s" Then
Form4.Text1(0).Text = array3(0) & array3(3)
Form4.Text1(1).Text = array3(7)
End If
If array4(0) <> "s" Then
Form5.Text1(0).Text = array4(0) & array4(3)
Form5.Text1(1).Text = array4(7)
End If
If array5(0) <> "s" Then
Form6.Text1(0).Text = array5(0) & array5(3)
Form6.Text1(1).Text = array5(7)
End If
If array6(0) <> "s" Then
Form7.Text1(0).Text = array6(0) & array6(3)
Form7.Text1(1).Text = array6(7)
End If
If array7(0) <> "s" Then
Form8.Text1(0).Text = array6(0) & array6(3)
Form8.Text1(1).Text = array6(7)
End If
If array8(0) <> "s" Then
Form9.Text1(0).Text = array8(0) & array8(3)
Form9.Text1(1).Text = array8(7)
End If
If array9(0) <> "s" Then
Form10.Text1(0).Text = array9(0) & array9(3)
Form10.Text1(1).Text = array9(7)
End If
If array10(0) <> "s" Then
Form11.Text1(0).Text = array10(0) & array10(3)
Form11.Text1(1).Text = array10(7)
End If
If array11(0) <> "S" Then
Debug.Print array11(0)
Form12.Text1(0).Text = array11(0) & array11(3)
Form12.Text1(1).Text = array11(7)
End If
If array12(0) <> "s" Then
'.Print array12(0)
Form11.Text1(0).Text = array12(0) & array12(3)
Form11.Text1(1).Text = array12(7)
Else
End If
If array13(0) <> "s" Then
Form12.Text1(0).Text = array13(0) & array13(3)
Form12.Text1(1).Text = array13(7)
End If
If array14(0) <> "s" Then
Form13.Text1(0).Text = array14(0) & array14(3)
Form13.Text1(1).Text = array14(7)
End If
If array15(0) <> "s" Then
Form14.Text1(0).Text = array15(0) & array15(3)
Form14.Text1(1).Text = array15(7)
End If

If array16 = "Errore 13" Then
Form15.Text1(0).Text = array16(0) & array16(3)
Form15.Text1(1).Text = array16(7)
End If
If array17(0) <> "s" Then
Form16.Text1(0).Text = array17(0) & array17(3)
Form16.Text1(1).Text = array17(7)
End If
If array18(0) <> "s" Then
Form17.Text1(0).Text = array18(0) & array18(3)
Form17.Text1(1).Text = array18(7)
End If
If array19(0) <> "s" Then
Form18.Text1(0).Text = array19(0) & array19(3)
Form18.Text1(1).Text = array19(7)
End If
End Function

GRAZIE A TUTTI!!!

1)se ne puoi fare a meno ti chiedo di non usare il caps perche' corrisponde a urlare e davvero qui non ne hai bisogno c'è sempre qlk1 disposto ad aiutare
2)non ho ben capito perche' non dovrebbe trovare la riga... a che linea del codice ti potrebbe dare l' errore?
3)esiste una funzione chiamata On Error Resume Next che in caso di errore salta quell' istruzione e va avanti nel codice senza segnalarti errori che forse puo' esserti utile. per usarla bata scrivere On Error Resume Next prima del codice che ti da l errore io lo metto sempre all' inizio della sub o function se ne ho bisogno. C' è anche un altra cosa del genere che è chiamata On Error Goto "Nome di un pezzo di codice" che in caso di errore porta ad un altro pezzo di codice della stessa routine a cui avrai dato un nome che specificherai nella funzione. ad esempio

Public Sub Divisione ()
On Error Goto Sbagliato
dim a as integer
a = 9 / 0
msgbox "esatto"
Sbagliato:
msgbox "sbagliato"
end sub

se esegui questa sub quando il prog fa la divisione per 0 dovrebbe segnalare un errore ma con la funzione on error goto invece di dare errore o far comparire la msgbox "esatto" come accadrebbe con on error resume next , porta il codice a sbagliato e quindi compare la msgbox"sbagliato". spero che ti siano utili se nn ne eri a conoscenza se no cerca di dare qlk info in +...

grazie,

ho utilizzato x il momento On Error Resume Next

grazie,

ho utilizzato x il momento On Error Resume Next