funcion para extraer numeros separados por comas

[domanion]

hola bueno digamos que tengo una cadena de carateres la cualt ieen numero separados por comas
2,3,4,5,6
y queria una funcion para que fuera extrayendo los numeros y los regresara como un array de numeros

habia pensado en usar (como nates lo habia usado)

[

Código:

I]Val(Mid(serial, i,j )[/I]

pero como los numeros pueden se de diferentes tamaños por ejemplo
100,2,56,4569,3


intente otra cosa

yo habia implementado el siguinte codigo

Código VB.NET:

Dim array(50) As Integer
Dim cadenaprincipal As String = ListBox1.SelectedItem
        Dim numcad As String = ""
        Dim veces As Integer = contarcomas(cadenaprincipal)
        Dim i As Integer
 
        For j = 0 To cadenaprincipal.Length - 1
            If cadenaprincipal(j) <> "," Then
                numcad += cadenaprincipal(j)
            Else
                array(i) = Val(numcad)
                numcad = ""
                i += 1
            End If
        Next
 
        For i = 0 To veces
            ListBox2.Items.Add(array(i))
        Next
 

pero no funiona correctamente
cuando busca la ultiam cadena ya no la devuelve
por jemplo si tenemos 555,666
devuelve en el array
array(0)=555
array(1)=0

ayuda