Ho il seguete codice che serve per ordinare in ordine alfabetico un'eventuale ComboBox
codice:
Private Sub Sort(ByVal bAscending As Boolean, obj As Name)

Dim bMoved As Boolean
Dim nCtr As Integer
Dim strTemp As String
Dim obj As Name
Do
   bMoved = False
   For nCtr = 0 To obj.ListCount - 2
       If obj.List(nCtr) > obj.List(nCtr + 1) And bAscending _
           Or obj.List(nCtr) < obj.List(nCtr + 1) And Not bAscending Then
           bMoved = True
           strTemp = obj.List(nCtr)
           obj.List(nCtr) = obj.List(nCtr + 1)
           obj.List(nCtr + 1) = strTemp
       End If
   Next
Loop Until bMoved = False
   
End Sub
Che richiamo con questo comando:
codice:
Call Sort(True, ComboOggetti.Name)
Ma vi viene restituito l'errore Type Mismatch...

Chi mi sa aiutare?