[решено] удалить из строчки числа, где более 4 цифр

[kontox]

есть txt файл, он разделен таблуляцией
его путь С:/ мойфайл.txt
его содержимое,я прикрепил.
В поле id
id
какая то фраза
*2108609 fsfhsfghsgfhjdfsdh
3420159 rgyaeghpiudarsfghpuashg 900г
2030918 Пhsapsgiju[aeri 180г
2013077 a[osdig[aodifg[ad

из строчек, где у чисел больше чем 4 цифр удалять такие числа из строчки

т.е на выходе
id
какая то фраза
fsfhsfghsgfhjdfsdh
rgyaeghpiudarsfghpuashg 900г
Пhsapsgiju[aeri 180г
a[osdig[aodifg[ad

Как это сделать средствами VBA? там много строчек.

[Iska]

его содержимое,я прикрепил. »
Вы прикрепили файл *.xlsx, а не *.txt.

средствами VBA? »
Зачем именно VBA? Я бы работал непосредственно с текстовым файлом посредством WSH.

В любом случае, и там, и там код будет практически идентичен. На VBA для приложенной Рабочей книги:
Option Explicit

Sub Sample()
Dim objRange As Range

With CreateObject("VBScript.RegExp")
.Pattern = "\d{5,}"
.Global = True

For Each objRange In Intersect(ThisWorkbook.Worksheets.Item("Лист1").UsedRange.Offset(1, 0), ThisWorkbook.Worksheets.Item("Лист1").Columns("G"))
objRange.Value = .Replace(objRange.Value, "")
Next objRange
End With
End Sub

[kontox]

Iska, все ок)