Adaptation formule dans un userform

Bonjour à tous,

Je bloque sur l'adaptation d'une formule dans un userform,

La formule en question

=SI(NBCAR(D8)<30;CONCATENER(GAUCHE(D8;6);"0000");CONCATENER(STXT(D8;TROUVE(";";D8;1)+1;6);"0000"))*1

Vu que c'est pour un userform, la donnée à traiter ne ce trouve plus en D8 mais dans le textbox1 avec le résultat en label8

Private Sub Label17_Click() 'Bouton Recherche
  If TextBox1 = "" Then
      MsgBox "Aucune données matériel", vbExclamation, "Alerte"
  Else
      Label8.value = 'ma formule
  End If

End Sub

J'ai essayer de retranscrire avec Evaluate mais sans succès

Label8.value = Evaluate("=IF(LEN(TextBox1)<30,CONCATENATE(LEFT(TextBox1,6),""0000""),CONCATENATE(MID(TextBox1,FIND("";"",TextBox1,1)+1,6),""0000""))*1")

bonjour,

en vba

  If Len(textbox1) < 30 Then
        label8.Value = Left(textbox1, 6) & "0000"
    Else
        label8.Value = Mid(textbox1, InStr(textbox1, ";") + 1, 6) & "0000"
    End If
    

h2so4,

Merci beaucoup pour ton aide.

Une bonne fin de journée et un bon week