Dim FilePass(255) As String,i As Long,i2 As Long,FilePass2(255) As String
Do
FilePass(i)=Str$(i)
If Asc(FilePass(i))=Asc("2") Then
FilePass2(i2)=FilePass(i)
i2=i2+1
End If
i=i+1
If i=255 Then ExitDo
Loop
Dim strBuf As String
Dim FilePass(255) As String,i As Long,i2 As Long,FilePass2(255) As String
Open ofn.lpstrFile For Input As #1
While( Eof(1)=0 )
'ファイル内容の一行ずつの読み取り
LINEINPUT(1,strBuf)
'読み取ったファイル内容の追加
FilePass(i)=strBuf
i=i+1
Wend
Close #1
i=0
Do
If Asc(FilePass(i))=Asc("F") Then
FilePass2(i2)=FilePass(i)
i2=i2+1
End If
i=i+1
If i=255 Then ExitDo
Loop