Structure cannot be indexed because it has no default value

[ssjaronx4]

Hi Guys,

Can anyone tell me what I'm missing here:

Structure EmployeeData
    Dim EmployeeName As String
    Dim JobTitle As String
    Dim TaxRate As Single
End Structure

 Public Sub OpenEmployeeFile(ByVal ViewForm As Object, ByVal ListBox As Object)

        Dim EmployeeList As EmployeeData = Nothing
        nEmployees = 0
        ViewForm.EmployeeListBox.Items.Clear()

        FileOpen(1, "EmployeeData.epc", OpenMode.Binary, OpenAccess.Read)

        While Not EOF(1)
            FileGet(1, EmployeeList)
            EmployeeArray(nEmployees) = EmployeeList
            ViewForm.ListBox.Items.Add(EmployeeList.EmployeeName)

        End While
    End Sub