Boa noite!!

Se não estou enganado você baril dois tópicos para falar do mesmo assunto!!

Tente

Private Sub CommandButton1_Click()
  Dim FindCol As Range, ModeloRow As Range, Pot As Long
  If OptionButton1 Then
    Set FindCol = Rows("7:7").Find(what:=ComboBox1.Value, after:=Range("A7"), searchdirection:=xlPrevious)
  Else
    Set FindCol = Rows("7:7").Find(what:=ComboBox1.Value, after:=Range("A7"), searchdirection:=xlNext)
  End If
  
  Set ModeloRow = Range("B:B").Find(what:=ComboBox2.Value)
  If Len(TextBox1) > 0 Then
    Pot = WorksheetFunction.Match(Val(TextBox1.Value), Range("C" & ModeloRow.Row & ":C" & Cells(Rows.Count, "C").End(xlUp).Row), 0)
  Else
    Pot = WorksheetFunction.Match(Val(TextBox2.Value), Range("D" & ModeloRow.Row & ":D" & Cells(Rows.Count, "D").End(xlUp).Row), 0)
  End If
  Label1.Caption = Cells(ModeloRow.Row + Pot - 1, FindCol.Column).Value
    
End Sub

Bom dia Alexandre, obrigado por responder.

Na verdade eu tinha um tópico, mas não ficou da forma como eu queria, então eu tentei fazer e ainda assim não deu certo. Então anexei o arquivo para que me ajudassem. No entanto, se não me engano, você respondeu sobre o outro pois nesse não existem textboxes.
Vou tentar adaptar.

Obrigado mesmo.