E quindi anche

str = Mid$(strProva, 51, 50)
Print #FileNum, str

e così via ... magari i un ciclo...