Problème Ucase et textbox

Bonjour à toutes et à tous

Je suis confronté à un probl de tri dans une listbox. En effet, suivant le code ci-dessous je rajoute un élément via un textbox. Le texte pouvant être en minucule ou majuscule. Pour être sur que le tri se fasse correctement, j'ai rajouté un Ucase(textbox4). Mais oh surprise, il me met systématiquement mon texte en majuscule. Est il possible d'avoir un tri efficace quelle que soit la casse ?

Merci par avance pour vos propositions
Philippe

Le code:
Private Sub CommandButton9_Click()
If TextBox4.Value = "" Then
MsgBox ("Vous n'avez pas rentré de nouvelle recette")
Exit Sub
End If
ListBox5.AddItem UCase(TextBox4)
TextBox4 = ""
MsgBox ("votre Ajout a été pris en compte")

For a = 0 To ListBox5.ListCount - 1
For j = 0 To ListBox5.ListCount - 1
If ListBox5.List(a) < ListBox5.List(j) Then
temp = ListBox5.List(a)
ListBox5.List(a) = ListBox5.List(j)
ListBox5.List(j) = temp
End If
Next j
Next a
Call modif
End Sub