Sumar datos de diferentes columnas de un listbox

Esta sería la solución: Con esta macro, que está vinculada a un botón del formulario, contamos los valores que hay en la columna 1 y 2 y la suma la anotamos en el textbox1

Private Sub CommandButton1_Click()
For x = 0 To ListBox1.ListCount - 1
If ListBox1.List(x, 0) <> "" Then
m = m + 1
End If
If ListBox1.List(x, 1) <> "" Then
p = p + 1
End If
Next
MsgBox "hay un total de: " & m + p & " datos en las columnas 1 y 2, y serán anotados en el textbox1"
TextBox1.Value = m + p
End Sub

no olvides finalizar la consulta