With receiptCollection
                .Add(orderNumber)
                .Add(costumer)
                .Add(sum)
                .Add(signCode)
            End With

            For i = 0 To (dgvBestillingsListe.RowCount - 1)
                'makeItemString = ""
                For j = 0 To (dgvBestillingsListe.ColumnCount - 1)
                    makeItemString = ""
                    makeItemString = (dgvBestillingsListe.Item(j, i).Value)
                    'makeItemString += (dgvBestillingsListe.Item(j, i).Value & vbTab)
                    receiptCollection.Add(makeItemString)
                Next j
                'receiptCollection.Add(makeItemString)
            Next i