There are two separate problems with you list  box:

- First (and most serious) - you have multi-select set on the list box. You
need to turn multi-select off.

- Second - your box  initially shows as empty. This is because you have a
first value of space, before your other two values. Almost certainly, this
is because you have assigned it an initial value of a single space.

I also notice the statement

Dim strBuilding, strUtility, strString, strMeter, strMeter2 As String

This is incorrect. It defines all but strMeter2 as Variant. You need an
"As String" for each one.