Suma de cantidades en un list box visual basic

en mi listbox se almacenan ciertas cantidades y puse este código para realizar toda la suma de ese listbox, pero el problema es que me percate que las cantidades me las toma con "," en vez de "." y por lo tanto al sumar todo mi listbox no toma encuenta los valores del lado izquierdo de la ","
ejemplo de lo que me hace
12,3 + 6,7 +2,1 = 21
y lo que quiero que haga
12,3 + 6,7 +2,1 = 21,1 o 21.1 ( en este caso no me importa si usa "," o "." pero que si me lo tome encuenta)
no se si me di a entender, yo creo que tu viendo el código ya sabes de lo que hablo :)
Dim total As Single
For por = 0 To lstIva.ListCount - 1
total = total + Val(lstIva.List(por))
Next
txtTotal = total