ok, ho risolto
ma non se è il metodo migliore
codice:
TextBox2.Text = TextBox2.Text & Chr(13) & Chr(10) & lendatabit
adesso ho un problema diverso:

come trasformo la stringa in binario?

ciao
grazie