Le découpage d'une chaîne sur la virgule et l'impression des résultats

J'utilise le code suivant pour diviser une chaîne et de les récupérer:

Private Sub Button1_Click(sender As Object, e As EventArgs) 
      Handles Button1.Click
    Dim s As String = "a,bc,def,ghij,klmno"
    Dim parts As String() = s.Split(New Char() {","c})
    Dim part As String

    For Each part In parts
        MsgBox(part(0))
    Next

End Sub

Mais la boîte de message affiche uniquement le premier caractère de chaque découpé string (a,b,d,g,k).

Je veux montrer que le premier mot, ce que je fais mal?

OriginalL'auteur Samuel Medhat | 2013-02-01