Depacement capacite dans tableau

Private Sub TextBox1_Change()
  Dim It [B][COLOR=blue]As Integer[/COLOR][/B], MyString As String
  Me.ListBox1.Clear 'on efface la listbox
  Me.ListBox2.Clear
  Me.Controls("Label5") = ""
  MyString = Me.TextBox1.Text 'on affecte à la variable Mystring la valeur du textbox
  If MyString = "" Then Exit Sub  'si textbox vide on quitte
  For It = 1 To UBound(Tabtemp, 1) 'pour chaque lignes du tableau temporaire
    If Left(UCase(Trim(Tabtemp(It, 1))), Len(MyString)) = UCase(MyString) Then 'si les  lettres _
       à droite du mot du tableau sont les mêmes que Mystring
      Me.ListBox1.AddItem Tabtemp(It, 1) 'on ajoute ce mot à la listbox
    End If
  Next
End Sub