из текстового файла выдать такой вид

Sub Перезапись()
Dim FrFi As Integer, FirstLine As BooleanDim StIn As String, StOut As String, iSep As Long, X As Single, Y As Single 
   FrFi = FreeFile
   'свободный номер для исходного файла
    FirstLine = True
    Open "c:\00\00.txt" For Input As FrFi
        Do Until EOF(FrFi)
              'до конца файла
            Line Input #FrFi, StIn
     'чтение строки
            StIn = Trim(StIn)
           'на всякий случай убирание пробелов
            iSep = InStr(1, StIn, ";")
  'поиск разделителя ;
            If FirstLine Then
                StOut = StOut & Left(StIn, iSep - 1) & ":" & Right(StIn, Len(StIn) - iSep)
            Else
                StOut = StOut & "; " & Left(StIn, iSep - 1) & ":" & Right(StIn, Len(StIn) - iSep)
            End If 
           'это, чтоб не было "; " в конце вывода
            FirstLine = False
           'строка НЕ первая
        Loop
    Close
    'если на экран
    MsgBox StOut
    'если в файл
    Open "c:\00\01.txt" For Output As FrFi
        Print #FrFi, StOut
    Close
    'Сразу скажу, что с длинными файлами будет работать медленно,
    'т.к. строковые операции с большими строками значительно замедляются,
    'у.е. StOut = StOut & ... медленный способ (но самый простой)
    'Тип переменных X,Y поставьте, какой надо
End Sub