Array list run-time error '13' type mismtach.

[umasskid4]

Hello,

My code is below and i am getting a run time error for a mismatch and have spent hours trying to figure out what is casuing it but i can't seem to figure it out

Dim br, BL
Dim u As Long
Set BL = CreateObject("system.collections.arrayList") br = Sheets("employees").Range("B1").CurrentRegion.Value 'THE DATA
 For u = 1 To UBound(ar, 1)
    If br(u, 1) = ComboBox1.Value Then
        BL.Add br(u, 3)
    End If
Next u
    jobList.Text = Application.Transpose(Join(BL.toarray, vbNewLine))       'THIS LINE

ComboBox.1 value when i get error is "Wilbraham"

Where i have the caps THIS LINE is the line selected under yellow when i debug the code. My data is shown below. Any help or advice would be awesome thanks!

[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Springfield[/TD]
[TD]Dave Smith[/TD]
[TD]Street[/TD]
[/TR]
[TR]
[TD]Springfield[/TD]
[TD]Cory Smith[/TD]
[TD]Lane[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Josh Anderson[/TD]
[TD]Road[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Jay Anderson[/TD]
[TD]Street[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Cody Anderson[/TD]
[TD]Lane[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Kelsey Anderson[/TD]
[TD]Lane[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Arman White[/TD]
[TD]Lane[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Kevin Stacey[/TD]
[TD]Street[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]John Collins[/TD]
[TD]Street[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Ray Collins[/TD]
[TD]Mid-way[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Kristen Smith[/TD]
[TD]road-way[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Summer O Reilly[/TD]
[TD]road-way[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Patrick O Reilly[/TD]
[TD]road-way[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Chad Rice[/TD]
[TD]road-way[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Dennis White[/TD]
[TD]Ave[/TD]
[/TR]
[TR]
[TD]Wilbraham[/TD]
[TD]Chase Wagner[/TD]
[TD]Ave[/TD]
[/TR]
</tbody>[/TABLE]