perche' ogni volta rimpiazzi il contenuto della textbox con l'ultimo valore letto. se li vuoi tutti devi accodare (textbox.text = txtbox.text & valore & vbCrLf)