Visual Basic - Alterar la propiedad de un botón del cual su nombre está en una variable tipo string

Private Sub BotonZ_Click(Index As Integer)

End Sub

Private Sub CommandButton1_Click()

    Dim fila As Integer

    'por luismondelo

    fila = 1

    For Each ctrl In Me.Controls

        If TypeName(ctrl) = "TextBox" Then

            Sheets(1).Cells(fila, 1).Value = ctrl.Value

            fila = fila + 1

            MsgBox ctrl.Name

            MsgBox ctrl.Left

            MsgBox ctrl.Top

            MsgBox ctrl.Width

        End If

    Next

End Sub

Private Sub CommandButton2_Click()

    fila = 1

    Dim o As OLEObject

    For Each o In Worksheets(1).OLEObjects

        If Left(o.Name, 3) = "Tex" Then

            x = o.Index

            valor = ActiveSheet.OLEObjects("TextBox" & x).Object.Text

            Cells(fila, 1).Value = valor

            fila = fila + 1

        End If

    Next

End Sub