Vb script cull patten

hi i am new with vb script, and i am trying to remove data base off a list of booleans, just like the cull pattern component in GH. I am trying to cull a list of points (culled_pts) with the boolean list(pt_dist_boolean). I think one problem is that the list comes out in individual branches for each data item, I'm not really sure. I would like to know how do i flatten out the data within the script if that is at all possible.

15g-pbridges%20upload%20to%20ghwebsite.gh
Dim culled_pts As New List( Of Point3d)
Dim cu_pt As New point3d
cu_pt.X = cop_x
cu_pt.Y = cop_y
cu_pt.Z = cop_z
culled_pts.Add(cu_pt)

Dim pt_dist As Double

pt_dist = pt.DistanceTo(cloud_of_pts)

Dim pt_dist_boolean As New list(Of Boolean)

If pt_dist <= distance_factor Then

pt_dist_boolean.Add(True)

Else

pt_dist_boolean.Add(False)

End If
culled_pts.Remove(pt_dist_boolean)True
list_of_int_pts = culled_pts
boolean_list = pt_dist_boolean
A = pt_dist