Dim But As Button
        For Each c As Control In Me.Controls
            If TypeOf c Is Button Then
                But = CType(c, Button)
                If CStr(But.Tag) = "1" Then
                    But.Text = "Blabla"
                End If
            End If
        Next

Gruß
Christoph