Private Sub Command1_Click()
MousePointer = vbHourglass 'Делаем из курсора мышки часики

FreeNumFile = FreeFile 'Получаем свободный номер для файла
PathFile = "C:\TestFile.txt" 'Задаём путь к файлу
Open PathFile For Binary As FreeNumFile 'Открываем файл в бинарном режиме доступа
Do Until EOF(FreeNumFile) = True 'Задаём цикл с проверкой на конец файла
PositionCursor = PositionCursor +  1  'Сдвигаем указатель вправо на один символ
Get #FreeNumFile, PositionCursor, Symb$ 'Считываем в переменную текстового типа
If Symb$ = Chr$( 9 ) Then 'Проверяем символ (а вдруг это "Tab")
Put #FreeNumFile, PositionCursor, Chr$( 32 ) 'Если результат проверки положительный меняем символ на пробел
End If 'Заканчиваем условие
Loop 'Заканчиваем цикл, либо начинаем с начала
Close FreeNumFile 'Закрываем файл

MousePointer = vbNormal 'Приводим курсор мышки в нормальный вид
End Sub

Do Until EOF(FreeNumFile) = True 'Задаём цикл с проверкой на конец файла
PositionCursor = PositionCursor +  1  'Сдвигаем указатель вправо на один символ
Get #FreeNumFile, PositionCursor, Symb$ 'Считываем в переменную текстового типа
If Symb$ = Chr$( 9 ) Then 'Проверяем символ (а вдруг это "Tab")
Put #FreeNumFile, PositionCursor, Chr$( 32 ) 'Если результат проверки положительный меняем символ на пробел
End If 'Заканчиваем условие
Loop 'Заканчиваем цикл, либо начинаем с начала

Private Sub Command5_Click()
MousePointer = vbHourglass

FreeNumFile = FreeFile
PathFile = "C:\Program Files\Resource Kit\sec_archive.txt"
Open PathFile For Binary Access Read Write As FreeNumFile
Symbol$ = String( 1 , " ")
Do Until EOF(FreeNumFile) = True
PositionCursor = PositionCursor +  1 
Get #FreeNumFile, PositionCursor, Symbol$
If Symbol$ = Chr$( 9 ) Then
Put #FreeNumFile, PositionCursor, Chr$( 32 )
End If
Loop
Close FreeNumFile

MousePointer = vbNormal
End Sub