Ordem Alfabética?

Estou utilizando o código a seguir, no Excel, mas Rio Grande do Sul e Rio Grande do Norte estão vindo antes de Rio de Janeiro. Como corrigir este problema, sem ter que alterar os nomes dos estados?

Sub ordenarEstado()

Dim ini, fim As Integer
Dim i, j As Integer
Dim menor As String
ini = 0
fim = cmbEstado.ListCount - 1 
For i = ini To fim - 1
    For j = i + 1 To fim
        If cmbEstado.List(i) > cmbEstado.List(j) Then
            menor = cmbEstado.List(j)
            cmbEstado.List(j) = cmbEstado.List(i)
            cmbEstado.List(i) = menor
        End If
    Next j
Next i
End Sub