Imports System.Text
 
'Load CSV
Dim fileName = "D:\Dokumenty\Zakaznici\__HELPDESK__\HD_20161102\export\polozky_import.csv"
Dim win1250  = Encoding.GetEncoding(1250)
Dim lines As String() = System.IO.File.ReadAllLines(fileName, win1250)
If (lines.Length < 2) Then
    MsgBox("Invalid CSV file")
    Return
End If
Dim data = lines(1).Split(";")
'Set iProperties
Try
    iProperties.Value("Custom", "12 Skl. p.  polotovaru") = data(1)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "08 Norma polotovaru") = data(4)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "09 TDP") = data(5)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "06 Polotovar 1") = data(2)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "04 Materiál konečný") = data(3)
Catch
    'catch error when cell is blank
End Try
Try
    iProperties.Value("Custom", "09 Atest") = data(6)
Catch
    'catch error when cell is blank
End Try