Pegar os itens selecionados em um ListBox VB.NET ASPX

´Lê os itens selecionados em List1 e coloca-os na variável sTexto separados por vírgula(,), Exceto o 'último item que não terá vírgula após.

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim iContador As Integer
    Dim sTexto As String = String.Empty

    For iContador = 0 To List1.GetSelectedIndices.Count - 1
        If iContador < List1.GetSelectedIndices.Count - 1 Then
            sTexto &= List1.Items(List1.GetSelectedIndices(iContador)).ToString & ";"
        Else
            iContador &= List1.Items(List1.GetSelectedIndices(iContador)).ToString & ";"
        End If
    Next iContador

End Sub