Il problema potrebbe essere in

Dim NomeFileOutput As String

Io proverei con un:

Dim NomeFileOutput As StringBuilder

fuori dal For... Next. e poi in ogni ciclo azzerare e quindi ridefinire NomeFileOutput