Welcome to the forum! Change 2,4,6,8 to the column numbers with your boolean values.
Private Sub UserForm_Initialize()
Dim a, r As Range, i As Long, j As Integer
With Worksheets("Events")
Set r = .Range("A1:L" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With ListBox1
.ColumnCount = 12
a = r.Value
For i = 1 To UBound(a)
For j = 1 To 12
Select Case j
Case 2, 4, 6, 8
If a(i, j) = True Then a(i, j) = "True"
If a(i, j) = False Then a(i, j) = "False"
Case Else
End Select
Next j
Next i
.List = a
End With
End Sub