Este codigo me vale para sumar numeros decimales y enteros en un listbox, y luego mostrar la suma en un texbox.

Dim i
Dim total
total = 0
For i = 0 To List11.ListCount - 1
total = total + CDbl(List11.List(i))
Next i
txtPrecioTotal.Text = total
End Sub

El problema es que esos numeros estan mezclados con letras (primero antes que nada va el numero) Por lo que si le pongo VAL, me suma aunque tenga letras, pero no me suma los decimales. Y si le pongo CDBL, no anda. Si le saco las letras y le dejo el CBDL, si me suma y con decimales.

Lo que necesito es que me sume enteros, y decimales, incluso haya palabras mezcladas luego de los primeros caracteres que vendrian a ser los numeros a sumar

Hola. Al final lo solucione poniendo todo en un ListView. Ahora tengo otro problema q pasaré a abrir otro hilo, gracias!