Objeto é obrigatório?

Question

Tenho o seguinte código:

Private Sub CommandButton1_Click()
OrdenarCombo (ComboBox1)
End Sub


Private Sub UserForm_Initialize()


ComboBox1.AddItem ("D")
ComboBox1.AddItem ("C")
ComboBox1.AddItem ("B")
ComboBox1.AddItem ("A")

End Sub


Public Sub OrdenarCombo(Combo As ComboBox)
    Dim contA As Integer
    Dim contP As Integer
    Dim menor   As String
    Dim Elem As Integer
     
    Elem = Combo.ListCount
    For contA = 0 To Elem - 2
        For contP = contA + 1 To Elem - 1
            If Combo.List(contA) > Combo.List(contP) Then
                menor = Combo.List(contP)
                Combo.List(contP) = Combo.List(contA)
                Combo.List(contA) = menor
            End If
        Next contP
    Next contA
End Sub

Ao clicar no botão do formulário com a combobox, dá o erro objeto é obrigatório, referente à linha:

OrdenarCombo (ComboBox1)