Utilizza questo semplice codice

Dim fh As Integer
Dim s As String

fh = FreeFile
Open "C:\testo.txt" For Binary As #fh
s = Space$(LOF(fh))
Put #fh, , s
Close #fh

che rimpiazza i tuoi dati, velocemente, con degli spazi.

E dato che lo fa con lo stesso numero di caratteri, quelli vecchi vengono rimpiazzati senza ulteriori allocazioni di spazio su disco.