Открытие файла в Excel с расширением (*.tbl) (прошу перевести)

Private Sub CommandButton5_Click()
 
Dim Form As Worksheet
Dim Del As Integer
 DoEvents
UserForm1.ProgressBar1.Visible = True
UserForm1.ProgressBar1.Min = Time
UserForm1.ProgressBar1.Max = Time + 0.001
 
    On Error Resume Next
    UserForm1.ProgressBar1.Value = Time
    Dim Filename, name_tun
     ' выбираем стартовую папку
    ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path
 
    ' вывод диалогового окна для запроса имени сохраняемого файла
    Filename = Application.GetOpenFilename("Text (*.tbl*),", , "Открытие документа")
     ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
    If VarType(Filename) = vbBoolean Then Exit Sub
    
For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "Base" Then
        Del = MsgBox("Для формирования нового листа Base, необходимо удалить старый. Удалить???", vbOKCancel, "Удалить?")
        If Del = vbOK Then
            Worksheets("Base").Delete
            Exit For
        Else
            Exit Sub
        End If
    End If
Next
    Set Form = Worksheets.Add
    Form.Name = "Base"
 
Filename = "TEXT;" & Filename
 DoEvents
UserForm1.ProgressBar1.Value = Time
Worksheets("Base").Activate
    With ActiveSheet.QueryTables.Add(Connection:= _
        Filename, Destination:=Range("A1"))
        '.Name = "Результат"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 3
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "|"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        UserForm1.ProgressBar1.Value = Time
        DoEvents
        .Refresh BackgroundQuery:=False
    End With
    'Cells.Select
    'Application.CalculateFull
UserForm1.ProgressBar1.Value = Time
UserForm1.ProgressBar1.Value = 0
UserForm1.ProgressBar1.Visible = False
CommandButton1.Enabled = True
Sort.Enabled = True
End Sub