We can't really help you specifically based on that little - we can't see what you have in your list boxes!
But at a guess, the list boxes contains strings, and you can't add them together directly.
Instead, convert the strings to numbers first:
Dim valueFromListBox1 As String = "666"
Dim valueFromListBox2 As String = "333"
Dim value1 As Integer
Dim value2 As Integer
If Integer.TryParse(valueFromListBox1, value1) AndAlso Integer.TryParse(valueFromListBox2, value2) Then
Dim result As Integer = value1 + value2
Console.WriteLine(result)
End If