Here is the part of my code which gets the data from the csv file:
Dim objSRFile As StreamReader
Dim strInput, arrStrInput() As String
Dim intCurrPos As Integer
Dim ref, greeted, catalogue, fitProduct, itemsNotOffered, shopAgain, recommend, age, lastTiles, hearOfUs...