Hi MrOutsider...welcome..

Thanks hochspeyer! You're the only person that replied

So this is what I used....to compile results

Private Sub Savebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Savebutton.Click
        oExcel = New Excel.Application
        oExcel.Visible = True
        oBook = oExcel.Workbooks.Add(String.Concat(driv, "vb\Final1\Final\Results\AllUBM.xls"))
        Dim csvFile As String = Dir(String.Concat(driv, "vb\Final1\Final\Results\UBM1.csv"))
        Dim oBook2 As Excel.Workbook = oExcel.Workbooks.Open(String.Concat(driv, "vb\Final1\Final\Results\UBM1.csv"))
        Dim oSheet As Object
        Dim oSheeta As Object

        Dim Array(49, 5) As Object

        For s = 0 To 49
            Array(s, 0) = Login.TextBox2.Text
            Array(s, 1) = Login.TextBox3.Text
            Array(s, 2) = Login.TextBox4.Text
            Array(s, 3) = datetest
            Array(s, 4) = startTime
        Next

        oSheet = oBook.Worksheets(1) 'Add headers to the worksheet on row 1.
        oSheeta = oBook2.Worksheets(1)

        oSheet.Range("A1").Value = "Name"
        oSheet.Range("B1").Value = "Institution"
        oSheet.Range("C1").Value = "Post"
        oSheet.Range("D1").Value = "Test Date"
        oSheet.Range("E1").Value = "Start Timet"
        oSheet.Range("A1:I1").Font.Bold = True

        oSheet.Range("A2").Resize(49, 5).Value = Array 'Transfer the array to the worksheet starting at cell A2.


        CType(oSheeta, Excel.Worksheet).Range("A1:D50").Copy()
        CType(oSheet, Excel.Worksheet).Range("F1").PasteSpecial(Excel.XlPasteType.xlPasteAll)
        oSheet.Columns.Autofit()
        oSheet.Range("A1:I1").Font.Bold = True

        oBook.SaveAs(String.Concat(driv, "vb\Final1\Final\Results\AllUBM.xls")) 'Save the Workbook and quit Excel.
        oSheet = Nothing
        oSheeta = Nothing
        oBook2 = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
        End
        ExitButton.Enabled = True

End Sub

Hmmm...need the arrays to filled dynamically (as user selects responses)......can't get into this at all...

    Private Sub Savebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Savebutton.Click
        oExcel = New Excel.Application
        oExcel.Visible = True
        oBook = oExcel.Workbooks.Add(String.Concat(driv, "vb\Final1\Final\Results\AllUBM.xls"))
        Dim oSheet As Object

        Dim Array(99, 4) As Object
        ' Dim r As Array
        
        For r = 0 To 99
            Array(r, 0) = "Username"
            Array(r, 1) = ListBox1.Items.Add(intPic)
            Array(r, 2) = ListBox4.Items.Add(String.Concat(stemTEST)) ' but this is ends up saves as integer ..rather than the file name.....
            Array(r, 3) = ListBox3.Items.Add(TimeString)

        Next

        'Add headers to the worksheet on row 1.
        oSheet = oBook.Worksheets(2)
        oSheet.Range("A1").Value = "User Details"  ' need to find way  of entering user details copied in to whole column.....
        oSheet.Range("B1").Value = "File path"
        oSheet.Range("C1").Value = "Random number/ ListBox2"
        oSheet.Range("D1").Value = "User response"
        oSheet.Range("E1").Value = "Time Taken"

        'Transfer the array to the worksheet starting at cell A2.
        oSheet.Range("A2").Resize(100, 3).Value = Array

        'Save the Workbook and quit Excel.
        oBook.SaveAs(String.Concat(driv, "vb\Final1\Final\Results\AllUBM.xls"))
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
        End

Sorry guys ....fell asleep over macbook last night ..was reading a tutorial, wrote a question in the wrong place...and nodded off.

I'm storing results of a randomised quiz at the moment in several listboxes and then streamwriting to csv file. I was looking for a way to make the data manipulation a little niftier so I can play with data when I finally get to post this out! So include ID, Institution, Medical Grade of user, file path, image number blah di blah di blah.....Will look at everybody's suggestions....