Табуляция текста в VBA

Формулировка задачи:

Доброго времени суток!

Проблема такая: 1. Необходимо открыть файл "1.txt", в котором построчно записаны имена и фамилии через табуляцию, вида: Иван

TAB

Иванов Петр

TAB

Петров ... 2. Каждую строчку скопировать в массив alltxt причём: alltxt(0) - Имя alltxt(1) - Фамилия Начал решать данную задачу и не получил ожидаемого результата:

Public Sub txt()
   Dim FileNum As Integer
   Dim txt As String
   Dim alltxt() As String
    FileNum = FreeFile
     Open "c:\1.txt" For Input As FileNum
     Do Until EOF(FileNum)
     Line Input #FileNum, txt
     alltxt = Split(txt, "vbTab")
     MsgBox alltxt(0)
     Loop
    Close #FileNum
End Sub

По-идее MsgBox alltxt(0) должен выводить окошко с именем (Иван) из файла (после разбиения split-ом), на самом же деле выводится полностью вся строка "Иван

TAB

Иванов". Пробовал подключать разделитель формата "char(9)" - результата не дало. Одним местом чувствую что дело в кодировке... (текстовый файл по-умолчанию Блокнота записан в ANSI). Подскажите какой-нибудь вариант решения проблемы. Спасибо! P.S. Начал разбираться в VBA 5 дней назад, потому если что-то "топорно" сделал, буду благодарен за критику!

Решение задачи: «Табуляция текста в VBA»

textual
                            Листинг программы 
                        
                            alltxt = Split(txt, vbTab)