[VBA-Excel] Incompatibilité de type

Bonjour à tous,

Voici mon problème, lorsque j'exécute sous excel le code suivant j'ai une incompatibilité de type pour txtTexteCaché sachant que txtTexteCaché est un TextBox et CommandButton1 le bouton permettant de lancer la procedure le tout dans une feuille Excel .

Le code en VB fonctionne très bien, par contre en VBA sous Excel pb d'incompatibilité.

Voici le code :


Private Sub CommandButton1_Click()
Dim retour As Integer
retour = MD_Barcode39([#ff0000]txtTexteCaché[/#ff0000])
End Sub

Public Function MD_Barcode39(ctrl As Control) As String

On Error GoTo ErrorTrap_BarCode39

Dim Nbar As Single, Wbar As Single, Qbar As Single, NextBar As Single
Dim CountX As Single, CountY As Single, CountR As Single
Dim Parts As Single, Pix As Single, Color As Long, BarStamp As Variant
Dim Stripes As String, OneStripe As String, BarCode As String
Dim Mx As Single, my As Single, Sx As Single, Sy As Single

'Quelques Lignes de code

Exit_BarCode39:
Exit Function

ErrorTrap_BarCode39:
Resume Exit_BarCode39

End Function

Merci d'avance !