Select Case List1.ListIndex
Case Is = 0
txtAscii.Text = "1" & txtAscii.Text & "1"
Case Is = 1
txtAscii.Text = "2" & txtAscii.Text & "2"
End Select

Quando si clicca sul primo elemento della lista box "1" si aggiungerà al txtAscii.Text, quando si clicca sul secondo elemento della list box il "2" si aggiungerò a txtAscii.Text ma "1" non ci sarà +.

Il codice sopra era indicato da tuono se il risultato veniva messo su un'altra textbox, invece se voglio ke avvenga nella stessa textbox quel codice non va.