Преобразование листа Excel 2007 в текстовый файл с разделителями табуляции

Я нашел этот код для преобразования листа Excel в текстовый файл. Как я могу изменить его, чтобы создать текстовый файл с разделителями табуляции? Я не программист VB, поэтому было бы полезно, если бы вы вставили код туда, где он должен быть.

Заранее спасибо!

Sub ExportRange()
 Dim ExpRng As Range
 Open ThisWorkbook.Path & "\AllDXL.txt" For Output As #1
 Set ExpRng = Worksheets("Sheet1").Range("A1").CurrentRegion
 FirstCol = ExpRng.Columns(1).Column
 LastCol = FirstCol + ExpRng.Columns.Count - 1
 FirstRow = ExpRng.Rows(1).Row
 LastRow = FirstRow + ExpRng.Rows.Count - 1
 For r = FirstRow To LastRow
 For c = FirstCol To LastCol
 ' data = ExpRng.Cells(r, c).Value
 Data = Data & " " & ExpRng.Cells(r, c).Value
 If c = LastCol Then
 Print #1, Data
 Data = ""
 End If
 Next c
 Next r
 Close #1
End Sub

Решение проблемы

Без тестирования:

Заменять:

Data = Data & " " & ExpRng.Cells(r, c).Value

с:

Data = Data & vbTab & ExpRng.Cells(r, c).Value