Sumar dos columnas de un listbox en dos textbox

Saludos.

El siguiente código me suma la primera columna de un listbox

Dim I As Integer
Dim total As Long
total = 0
For I = 0 To LstNomina.ListCount - 1
total = total + Val(LstNomina.List(I))
Next I
TxSum.Text = total

Como hacer para sumar la siguiente columna de listbox

De antemano, gracias