Non bisogna mettere

TxtQuantità.Text = TxtQuantità.Text & Command1(Index).Caption
End Sub

:master: