random file access problem for dinamic size array...

hello,
I am working with VB code. when I access data from random file access using dynamic array, i got "out of memory" error:7 on get statement. it happen with perticular file and not with testing or sample file. on static array work fine. can any one tell what is problem with my file which are already written by GWBasic code.
Any other data type size possible to define dynamically(or with "Type" or any how). i posting some code please help to resolve this error. Thanks

Dim FD71, FD72 As Integer
Dim temp() As String * 1, temp11() As String * 1, i, temp1 As Integer
Dim tempstr, tempstr1 As String

temp1 = 4096
ReDim temp(1 To temp1) As String * 1
temp1 = 4100
ReDim temp11(1 To temp1) As String * 1

FD71 = FreeFile
Open "C:\temp1.txt" For Random Access Read Write As #FD71 Len = 4150
FD72 = FreeFile
Open "c:\temp111.txt" For Random Access Read Write As #FD72 Len = 4152

Get #FD71, , temp '<- this get statement gives error
temp11 = temp
Put #FD72, , temp11

Close FD71
Close FD72

[1074 byte] By [ganesh_bestone] at [2007-12-17]