E' difficile aiutarti non disponendo dell'ocx in questione.
Fai questi tentativi:
  • prova a togliere il DoEvents dal primo ciclo For
  • prova a mettere qualche DoEvents prima della riga: MsgBox "File splittato"
  • sostituisci il carattere ~ con lo spazio Chr$(32)


Ciao