我的目的是为了防止溢出,数组下限到1000万的时候，保存到另一组去

Open filename For Input As #1
    Do Until EOF(1)
        Line Input #1, txt
        If txt <> "" Then
            ReDim Preserve sz(ws, 0 To hs) As String
            sz(ws, hs) = txt
            hs = hs + 1
            If hs >= 10000000 Then Stop: hs = 0: ws = ws + 1
        End If
    Loop
Close #1

这里的数量大于1000万就会出错,用第二种方案

ReDim Preserve sz(5, 0 To hs) As String
'读取文件内容
Open filename For Input As #1
    Do Until EOF(1)
        Line Input #1, txt
        If txt <> "" Then
            ReDim Preserve sz(5, 0 To hs) As String
            sz(ws, hs) = txt
            hs = hs + 1
            If hs >= 10000000 Then Stop: hs = 0: ws = ws + 1
            hs = hs + 1
        End If
    Loop
Close #1

但是这里的redim 会把6组的下限都改成一样的,怎么破

不怕
多次读写咋弄？我是要读出来，然后在这里面搜索的,如果一段一段读，是要读一段，搜索一下，没有再读下一段吗？读下一段要把原来这段先删掉吗？

厉害了，我试过这个，但是差一点……
type arr
    a() as string
    b() as string
end type....