Structure EmployeeInfo
        Dim FirstName As String
        Dim LastName As String
        Dim ID As String
        Dim Mon As Double
        Dim Tue As Double
        Dim Wed As Double
        Dim Thu As Double
        Dim Fri As Double
    End Structure
 
    Dim Data As EmployeeInfo
    Dim sr As IO.StreamReader = IO.File.OpenText("commiss.txt")

So after some more research I've managed to find the Split Function.  However I'm getting an error in the red:


 Structure EmployeeInfo
        Dim FirstName() As String
        Dim LastName() As String
        Dim ID() As String
        Dim Mon() As Double
        Dim Tue() As Double
        Dim Wed() As Double
        Dim Thu() As Double
        Dim Fri() As Double
    End Structure
    Dim MAX_SIZE As Integer = 39
    Dim Data(MAX_SIZE) As EmployeeInfo
    Dim line As String
    Dim total As Double
    Dim fmtStr As String = "{0,-10}{1,10}{2,8}{3,8}{4,8}{5,8}{6,8}{7,8}{8,10}"

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Dim i As Integer = -1
        Dim sr As IO.StreamReader = IO.File.OpenText("commiss.txt")
        PrintHeader()

        Do While (sr.Peek <> -1)
            i += 1
            line = (sr.ReadLine)
            Data(i).FirstName = line.Split(" "c)
            Data(i).ID = line.Split(" "c)
            Data(i).Mon = line.Split(" "c)
            Data(i).Tue = line.Split(" "c)
            Data(i).Wed = line.Split(" "c)
            Data(i).Thu = line.Split(" "c)
            Data(i).Fri = line.Split(" "c)

            total = Data(i).Mon + Data(i).Tue + Data(i).Wed + Data(i).Thu + Data(i).Fri

            lstDisplay.Items.Add(line)
        Loop
        
        'lstDisplay.Items.Add(Data.Tue)


    End Sub
    Sub PrintHeader()
        With lstDisplay.Items
            .Clear()
            .Add("                                     Super Sales Associate")
            .Add("                                      Weekly Sales Report")
            .Add("")
            .Add(String.Format(fmtStr, "Name", "ID", "Mon", "Tue", "Wed", "Thu", "Fri", "Total", "Average"))
            .Add(String.Format(fmtStr, "----", "--", "---", "---", "---", "---", "---", "-----", "-------"))
        End With
    End Sub
End Class

 
    Structure EmployeeInfo
        Dim FirstName() As String
        Dim LastName() As String
        Dim ID() As String
        Dim Mon() As String
        Dim Tue() As String
        Dim Wed() As String
        Dim Thu() As String
        Dim Fri() As String
    End Structure
...
...
...
...
...
   Data(i).Mon = line.Split(" "c)
   CDbl(Data(i).Mon
etc...