>>801
ReDim Preserve は毎回メモリ確保してメモリコピーして、って
やってるので、大きなループ中で+1しながらやるとスタック不足で
落ちるよ。

lngRTrm = 0
ReDim typKeyInfo.typRelInfo(100) '適当な初期値にする
Do While Not EOF(intFile)
　　lngRTrm = lngRTrm + 1
　　If lngRTrm > UBound( typKeyInfo.typRelInfo ) Then
　　　　ReDim Preserve typKeyInfo.typRelInfo(lngRTrm * 2 + 1)
　　End If
　　Line Input #intFile, strData
　　typKeyInfo.typRelInfo(lngRTrm) = strData
Loop
ReDim Preserve typKeyInfo.typRelInfo(lngRTrm)

このようにして、なるべくメモリ再確保の回数を少なくすれば、
落ちなくなると思う。
配列サイズの大きさがある程度予測できるなら、初期値をそれに
近くしておくと効率的。