رفع خطای subscript out of range

[roo.row]

با سلام
من برای بخش لود یه برنامه ویرایش متن نیاز دارم تا ورودی رو به دو بخش تقسیم کنم که کد زیر رو براش نوشتم :


cd1.ShowOpen
filepath = cd1.FileName
If filepath <> "" Or filepath <> Null Then


If InStr(1, filepath, ".txt", vbTextCompare) = 0 And InStr(1, filepath, ".mte", vbTextCompare) = 0 Then
MsgBox "The Selected Format Is Not Supported By This Programm . Please Select File By Folowing Formats : .TXT , .MTE ."
Exit Sub
End If




Open cd1.FileName For Input As #1
While Not EOF(1)
Input #1, text
Form4.rtb1.text = Form4.rtb1.text + text + vbCrLf
Wend
Close #1






Dim longtxt As String
longtxt = rtb1.text
Dim sepratetxt() As String
sepratetxt() = Split(longtxt, "//Header_Is_Over//", 1)








Form3.rtb1.text = sepratetxt(0)
rtb1.text = sepratetxt(1)








If sepratetxt(0) <> "" Or sepratetxt(0) <> " " Then
Label3.Caption = yes
End If






Else
MsgBox "No file Selected As a Source"
End If





حالا مشکل اینجاست که موقع اجرا بعد از انتخاب فایل روی خط

Form3.rtb1.text = sepratetxt(0)
rtb1.text = sepratetxt(1)


ارورsubscript out of range میده .
چطور باید رفعش کنم ؟

با تشکر

[roo.row]

با سلام
هیچ کدوم از اساتید راه حلی نداشتن ؟ حتی اگر ایده ای دارید یا میدونید چطور همینکارو به نحو دیگه ای انجام بدم لطفا بیان کنید .
با تشکر

[vbhamed]

سلام
خب شاید اون عبارت وجود نداشته که آرایه تشکیل نشده، چون پیام میده اندیس خارج از محدوده