Label-Schleife in XP

Sub Lab_ausbl()
Dim userfrm As UserForm
  Set userfrm = Userf_konz
  
Dim Lb As Control, i As Byte
i = 1
 
For Each Lb In userfrm.Controls
    If TypeName(Lb) = "Label" Then
        If Lb.Caption = "" Then
            Lb.Visible = False
        i = i + 1
     End If
   End If
  Next
  
End Sub