txt-Datei erzeugen

Hallo,
ich möchte folgendes machen:
Ich habe in Excel ein Blatt, welches ich als txt-Datei erzeugen möchte. Ich möchte, dass die Zellen mit einem Semikolon getrennt werden. In dem Blatt stehen die Werte jeweils in einer Zelle. Wenn ich die Datei speicher (TXT MSDOS), dann sind die Zellen mit einem Tab getrennt.
Folgenden Code habe ich bisher:

Dim wb As Excel.Workbook
Set wb = Excel.ActiveWorkbook
ActiveWorkbook.SaveAs Filename:="Z:\Makros\PdfToXLS\Import.txt", _
FileFormat:=xlCSVMSDOS, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
'Workbooks.Open ("Z:\Makros\Lagerauftraege\Import.xls")
Dim strOut As String, i As Long, arrTmp
i = 1
arrTmp = Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft).Offset(, 3))
arrTmp = WorksheetFunction.Transpose(arrTmp)
arrTmp = WorksheetFunction.Transpose(arrTmp)
strOut = Join(arrTmp, ";")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
arrTmp = Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft).Offset(, 1))
arrTmp = WorksheetFunction.Transpose(arrTmp)
arrTmp = WorksheetFunction.Transpose(arrTmp)
strOut = strOut & vbCrLf & Join(arrTmp, ";")
Next
'ActiveWorkbook.Close SaveChanges:=True
Open "Z:\Makros\PdfToXLS\Import.txt" For Output As #1
Print #1, strOut
Close #1