Reading .CSV format in Excel Object

exlApp.Workbooks.OpenText FileName:=TextBox1.Text, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=True, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

I need to rename the .CSV to .TXT to use this code. The problem is that the .CSV file containt ';' as seperator and not a ','. When i use Workbook.Open to open the .CSV, the data is not in the correct cells. Cell 1 contains 1;test;test2;test3;etc

I dont want to rename the .csv to .txt .. i want a code that will open the .csv file (cells seperator by ';') in an excel object. This all without rename the .csv to .txt

I use this code in outlook.

example .CSV File: http://www.efamro.com/test/Copy%20of%20Book1.csv