ДОС-кодировка и VBA в Excel

Sub DBF_FILE()
Application.ScreenUpdating = False
' Определение имени и пути
' сохранения нового файла
A$ = ActiveWorkbook.FullName
ChDrive Mid(A$, 1, 1)
ChDir ActiveWorkbook.Path
n$ = ActiveWorkbook.Name
im$ = Mid(n$, 1, Len(n$) - 4) + ".dbf"
' Проверить наличие файла с таким именем на диске
' Если есть запросить подтверждение на его удаление
fl = True
If Dir(im$) <> "" Then
response = MsgBox("Обнаружен файл " + im$ + " Удалить его?", _
vbQuestion + vbYesNo, "Формирование файла в DBF формате")
If response = vbYes Then
Kill im$
Else
fl = False
End If
End If
If fl = True Then
' Создать файл заданной структуры
FileCopy "struct.dbf", im$
P$ = ActiveWorkbook.Path
Dim db As Database, rs As Recordset, categorycell As Range
Set db = OpenDatabase(P$, False, False, "dBASE IV")
Set rs = db.OpenRecordset(im$, dbOpenDynaset)
it = rs.Fields.Count ' определить количество полей
' переписать информацию с активного рабочего листа в файл
With ActiveSheet
j = 2 ' первая строка содержит наименования полей
If Not .Cells(j, 1) = Empty Then
Do While Not .Cells(j, 1) = Empty
rs.AddNew
For i = 0 To it - 1
' j - номер строки
' i - номер столбца
rs.Fields(i) = .Cells(j, i + 1)
Next i
rs.Update
j = j + 1
Loop
End If
End With
' Закрыть файл и завершить работу
rs.Close
db.Close
Application.ScreenUpdating = True
response = MsgBox("Создан файл " + im$, _
vbInformation, "Формирование файла в DBF формате")
End If
End Sub