I'm testing my new tool for vBulletin which formats your code as shown below :

Code:
Private Sub Test(A As string)
   Dim b As Long
   
   For b=0 To a
      'code here
      Line (0,a)-(0,b),255,BF
   Next
End Sub

(will post a link soon)