QueryTabl при считывании данных Internet преобразует длинные числа в double, хотелось бы в String/ Как сделать ?

Sub Пример()
    Workbooks("Пример.xlsm").Worksheets("Парсинг").Cells.Delete
    With Workbooks("Пример.xlsm").Worksheets("Парсинг").Select
    Range("A1:Z1000").Select
    Selection.NumberFormat = "@"
    End With
    With Workbooks("Пример.xlsm").Worksheets("Парсинг").QueryTables.Add("URL;[URL=https://www.roseltorg.ru/past/procedure/0131100011418000094"]https://www.roseltorg.ru/past/procedure/0131100011418000094&quot[/URL];, Workbooks("Пример.xlsm").Worksheets("Парсинг").Range("A1"))
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebDisableDateRecognition = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sub Пример()
 
    With Columns("A:B")
        .NumberFormat = "0000"
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
    End With
 
    With ActiveSheet.QueryTables.Add("URL;https://www.roseltorg.ru/past/procedure/0131100011418000094", ActiveSheet.Range("A1"))
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebDisableDateRecognition = True
        .Refresh BackgroundQuery:=False
    End With
 
End Sub