Userform - Manipular objeto por variavel string

Question

Bom dia galera, tudo bem?

Estou com uma ideia para fazer o seguinte:

Tenho uma frame e dentro dela, tem outras frames com botão tipo radio "Conforme" e "Não Conforme"

Por padrão, o verdadeiro fica no "Conforme". Quando o usuário clicar em "Não Conforme", eu queria fazer tipo um loop, para passar pelas frames de baixo, almentando seu top, porque quando se clica no "Não Conforme", abre eu almento a altura dele para exibir alguns checkbox.

Se alguem puder me ajudar agradeço imensamente,

Segue o código que utilizo para o userform até agora, qualquer sugestão é super bem-vinda.

Sub we()
Dim i As Integer
Dim frm As String
For i = 1 To 25
frm = "Frame" & i
  frm.Visible = False
Next i
End Sub
Private Sub OptionButton1_Click()
  If Frame2.Height <> 24 Then
    Frame2.Height = 24
    Frame3.Top = Frame3.Top - 18
    CheckBox1.Value = False
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
  End If
End Sub
Private Sub OptionButton2_Click()
  If Frame2.Height = 24 Then
    Frame2.Height = Frame2.Height + 18
    Frame3.Top = Frame3.Top + 18
  End If
End Sub
Private Sub OptionButton3_Click()
  If Frame3.Height <> 24 Then
    Frame3.Height = 24
    CheckBox5.Value = False
    CheckBox6.Value = False
    CheckBox7.Value = False
    CheckBox8.Value = False
  End If
End Sub
Private Sub OptionButton4_Click()
  If Frame3.Height = 24 Then
    Frame3.Height = Frame2.Height + 18
  End If
End Sub
Private Sub UserForm_Activate()
  With Me.Frame1
    .ScrollBars = fmScrollBarsVertical
    .ScrollHeight = .InsideHeight * 2 - 18
    .ScrollWidth = .InsideWidth * 9
  End With
End Sub
Private Sub UserForm_Click()
  Call we
End Sub

a função we, eu pensei que atenderia minha necessidade, mas não o fez.

 

Abç's!