Fonction VBA Trim$

Bonjour,

La fonction Trim$ ne fonctionne pas ? et voici le bout de code où elle est écrite :

Option Explicit

Private Sub TextBox1_Change()
Call LVW_Fill(trim$(TextBox1.Text), ComboBox1.ListIndex)
End Sub

Private Sub UserForm_Activate()
Me.Caption = "Historique des commandes"
Set ListView1.Icons = ImageList1
Set ListView1.SmallIcons = ImageList1
Call CBO_Fill
Call LVW_Fill("", 0)
End Sub

Private Sub CBO_Fill()
'Variables locales
Dim iCnt As Integer
Dim oRng As Excel.Range

'Remplit la Combo
Set oRng = Feuil3.Cells(1, 1)
For iCnt = 0 To 13 '-- 14 colonnes
ComboBox1.AddItem oRng.Offset(0, iCnt)
Next iCnt
ComboBox1.ListIndex = 0
End Sub

Private Sub LVW_Fill(ByVal sFilter As String, ByVal iCol As Integer)
'Variables locales
Dim iCnt As Integer
Dim iRnd As Integer
Dim oRng As Excel.Range
Dim oItem As ListItem

'Initialisation de la ListView
ListView1.ColumnHeaders.Clear
ListView1.FullRowSelect = True
ListView1.ListItems.Clear
ListView1.View = lvwReport

'Remplissage de la ListView
Set oRng = Feuil3.Cells(1, 1)
Do Until oRng.Value = ""
'-- En-têtes
If oRng.Row = 1 Then
For iCnt = 0 To 13 '-- 14 colonnes
ListView1.ColumnHeaders.Add , , oRng.Offset(0, iCnt)
Next iCnt
'-- Données
Else
iRnd = Int((4 * Rnd) + 1)
Set oItem = ListView1.ListItems.Add(, , oRng.Offset(0, 0), "Key" & iRnd, "Key" & iRnd)
For iCnt = 1 To 14 '-- 14 colonnes
oItem.ListSubItems.Add , , oRng.Offset(0, iCnt)
Next iCnt
End If

Set oRng = oRng.Offset(1, 0)
Loop
End Sub

il y a le message erreur de compilation projet ou bibliothèque introuvable

comment y remédier SVP

j'ai essayé de déclaré Trim comme "integer" et comme "string" mais ça ne marche pas

je vous informe que je suis amateur en VBA