Sub SafeTextToColumns(Ofs As Range)
   
  Dim I, J As Integer
  J = 0
  I = 1
  Do While I > 0
    I = InStr(I, Ofs.Value, Chr(9), vbBinaryCompare)
    If I > 0 Then
       J = J + 1
       I = I + 1
    End If
  Loop
  ReDim ArrFieldInfo(J) As Variant
  ReDim ArrNumberFormat(J) As Variant
 
  For I = 0 To J
     ArrNumberFormat(I) = Ofs.Cells(1, I + 1).NumberFormat
     If Ofs.Cells(1, I + 1).NumberFormat = "@" Then
        ArrFieldInfo(I) = Array(I + 1, xlTextFormat)
     Else
        ArrFieldInfo(I) = Array(I + 1, xlGeneralFormat)
     End If
  Next I

  If Ofs.Value <> "" Then
    Ofs.TextToColumns DataType:=xlDelimited, _
          TextQualifier:=xlTextQualifierNone, ConsecutiveDelimiter:=False, Tab:=True, _
          Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
          FieldInfo:=ArrFieldInfo
  End If

  For I = 0 To J
     Ofs.Cells(1, I + 1).NumberFormat = ArrNumberFormat(I)
     'Ofs.Cells(1, I + 1).Value = Ofs.Cells(1, I + 1).Value
  Next I

End Sub

PERFORM downloadmacros
   USING it_bookmarks 'ZWWW_MACROS'
   CHANGING file_macros macrosname file_data.