com o Mid funciona certinho..... pensei depois q postei a ultima msg.. faiz assim oh...
em vez de usar Print #1, "Data Devolucao: " + Text23.Text
usa assim
Mid("Data Devolução" & Space(20), 1, 30)
ele vai escrever Data Devolução jogar 20 espaços na frente.... ("Data Devolução" & Space(20))... depois ele vai pegar somente os caracteres desde o primeiro ateh o trigésimo...
assim ele alinha dessa forma:
Texto+espaço.....asdfsdafsadfasdf
Texto+espaço.....asdfsdafsadfasdfsadfasdfasd