' code that gets Excel to ingest a comma separated values (.csv) file 
' goes under the appropriate button

        Dim myInitialActiveSheet As Excel.Worksheet = Application.ActiveSheet
        Dim myFile As String = Application.GetOpenFilename()
        Application.Workbooks.OpenText(Filename:=myFile, DataType:=Excel.XlTextParsingType.xlDelimited)

        Dim myNewActiveSheet As Excel.Worksheet = Application.ActiveSheet
        Dim myNewActiveWB As Excel.Workbook = Application.ActiveWorkbook

        ' Counting ingested data rows
        Dim i As Integer = 1
        Do While Not IsNothing(myNewActiveSheet.Cells(i, 1).Value)
            i = i + 1
        Loop
        NoOfRows = i - 1

        myInitialActiveSheet.Range("A1:K" & NoOfRows).Value = myNewActiveSheet.Range("A1:K" & NoOfRows).Value
        myNewActiveWB.Close()
        myInitialActiveSheet.Range("A:K").Columns.AutoFit()
        MessageBox.Show("Ingested " & NoOfRows & " rows (including header).", "Data Cleaning", MessageBoxButtons.OK)