Infatti l'errore è stupidissimo

Text2.Text = Text2.Text & " " & List1.List(I)

Così dovrebbe andare