Value Of Cell To Return To Checkbox

I'm trying to achieve a search of a sheet using a selection in a listbox on my userform and then return a value of 'true or false' to my checkbox.

My code is below;

With Sheets("JobChecklist")
Set r = .Columns("b").Find(Me.ListBox3.Text, , , xlWhole)
If r Is Nothing Then

Exit Sub
End If
ff = r.Address: n = 0
Do
n = n + 1
ReDim Preserve a(1 To 6, 1 To n)
For i = 1 To 3
a(i, n) = r.Offset(0, 1).Value
Next
Set r = .Columns("b").FindNext(r)
Loop Until ff = r.Address
End With
With Me.CheckBox30
If a.Value = True Then
CheckBox30.Value = True
Else
CheckBox30.Value = False
End If
End With
End Sub