I am a long-time vb6 programmer, but new to VB2005.
I have the following declarations and code:

Private Structure IndividualType
Dim Inum As Integer ' GEDCOM number assigned to this individual
Dim Inam As String ' name
Dim Isex As String ' sex M or F
Dim Ibdt As String ' birth date Jan 12, 1789
Dim Ibpl As Integer ' pointer to birth place in .STR file
Dim Iddt As String ' death date
Dim Idpl As Integer ' pointer to death place in .STR file
Dim Irdt As String ' burial date
Dim Irpl As Integer ' pointer to burial place in .STR file
Dim Inot As Integer ' pointer to note in .STR file
Dim Ifamsp() As Short ' numbers of family in which he is a spouse
Dim Ifamch As Integer ' number of in which he/she is a child
Dim Ifamch2 As Integer ' sometimes in GED file, points to family with no HUSB or WIFE

Public Sub Initialize()
ReDim Ifamsp(maxSpouse)
End Sub
End Structure

Dim Ind() As IndividualType
Dim Ind2() As IndividualType
Dim nInd, IndBiggest As Integer


Private Structure FamilyType
Dim Fnum As Integer ' GEDCOM number assigned to this family
Dim Fhus As Integer ' number of the husband, 0 if none
Dim Fwif As Integer ' number of the wife
Dim Fmdt As String ' marriage date
Dim Fmpl As Integer ' pointer to marriage place in .STR file
Dim Fnot As Integer ' pointer to note about family in .STR file
Dim Fnch As Integer ' count of children
Dim Fchl() As Integer ' numbers assigned to children

Public Sub Initialize()
ReDim Fchl(maxChildren)
End Sub
End Structure

Ffile = FreeFile()
FileOpen(Ffile, txtFLXpath.Text & txtFLXfile.Text, OpenMode.Output)


For I = 1 To IndBiggest
If Ind(I).Inum > 0 Then
With Ind(I)
WriteLine(Ffile, "I", .Inum, RTrim(.Inam), .Isex, RTrim(.Ibdt), .Ibpl, RTrim(.Iddt), .Idpl, RTrim(.Irdt), .Irpl, .Inot, .Ifamsp(1), .Ifamsp(2), .Ifamsp(3), .Ifamsp(4), .Ifamsp(5), .Ifamsp(6), .Ifamsp(7), .Ifamsp(8), .Ifamch, .Ifamch2)
End With
End If
Next I

For I = 1 To FamBiggest
With Fam(I)
If .Fnch = 0 Then
WriteLine(Ffile, "F", .Fnum, .Fhus, .Fwif, .Fmdt, .Fmpl, .Fnot, .Fnch)
Else
Write(Ffile, "F", .Fnum, .Fhus, .Fwif, .Fmdt, .Fmpl, .Fnot, .Fnch)
If .Fnch = 1 Then
WriteLine(Ffile, .Fchl(1))
Else
For J = 1 To .Fnch - 1
Write(Ffile, .Fchl(J))
Next J
WriteLine(Ffile, .Fchl(.Fnch))
End If
End If
End With
Next I
FileClose(Ffile)

The problem:
The first loop writes absolutely NOTHING to the file
but the second loop write the data to the file correctly.

I have verified that the Ind() array contains the correct data by writing it into a textbox.
Why is Ind() not getting to the Ffile?