1) Perché hai scritto t = Timer + b e anche t = t + b ?

2) Queste



DoEvents
If bln = True Then
Exit Sub
End If