Considerei que todos os TextBoxes estão em um UserForm.
Veja se o código abaixo ajuda.
Se você não conseguir sugiro que você disponibilize uma amostra do seu arquivo.

Private Sub CommandButton1_Click()
 Dim st, s As Long, k As Long
 st = Array("extraduro", "superduro", "duro", "medio", "medio", "macio")
  For s = LBound(st) To UBound(st)
   For k = 1 To 3
    If Me.Controls("TextBox" & k).Text = st(s) Then
     'MsgBox "encontrado " & st(s) & " na TextBox " & k
     Me.TextBox4 = st(s)
     Exit Sub
    End If
   Next k
  Next s
End Sub

Osvaldomp, não consegui adaptar ao seu exemplo, é possível ver o meu modelo?

anexei um modelo de teste.

Private Sub UserForm_Initialize()
txt_dureza1.Text = "MACIO"
txt_dureza2.Text = "MEDIO"
txt_dureza3.Text = "MACIO"
Dim st, s As Long, k As Long
st = Array("extraduro", "superduro", "duro", "medio", "medio", "macio")
  For s = LBound(st) To UBound(st)
   For k = 1 To 3
    If Me.Controls("txt_dureza" & k).Text = UCase(st(s)) Then
     'MsgBox "encontrado " & st(s) & " na TextBox " & k
     Me.txt_maiordureza = UCase(st(s))
     Exit Sub
    End If
   Next k
  Next s
End Sub