Open FileFullPath For Input As #1
    While Not EOF(1)
        Line Input #1, txtLine
и т.д.

Sub tt()

    Dim FD As FileDialog

    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        With .Filters
            .Clear
            .Add "Файлы MVP_*.asvp", "*.asvp*"
        End With
        If .Show = False Then Exit Sub
    End With

    FileFullPath = FD.SelectedItems(1)

    Open FileFullPath For Input As #1
    While Not EOF(1)
        Line Input #1, txtLine
        txtLine = Trim(txtLine)
        If Left(txtLine, 1) = "(" And Right(txtLine, 1) = ")" Then
            a = Split(txtLine)
            i = i + 1
            Cells(i, 1) = "File name"
            Cells(i, 2) = Right(FileFullPath, 26)
            i = i + 1
            Cells(i, 1) = "TIME"
            Cells(i, 2) = Mid(a(6), 9, 2) & ":" & Right(a(6), 2)
            i = i + 1
            Cells(i, 1) = "LAT"
            Cells(i, 2) = a(7)
            i = i + 1
            Cells(i, 1) = "LON"
            Cells(i, 2) = Replace(a(8), "-", "")
            i = i + 1
            Cells(i, 1) = "Depth"
            Cells(i, 2) = "Speed of sound"
        Else
            i = i + 1
            Cells(i, 1).Resize(, 2) = Split(txtLine)
        End If

    Wend
    Close #1

End Sub