Todos os itens adicionados

Olá, boa noite.

O meu código acaba adicionando todos os itens da colona G na busca, podem me ajudar a entender o motivo por favor

Private Sub UserForm_Activate() Dim iContador As Integer

iContador = 2

cmbTipoVeiculo.AddItem ""

Do While Sheets("Controle de Entregas").Range("G" & iContador) <> vbNullString If Not fnVerificaVeiculoNaLista(Sheets("Controle de Entregas").Range("G" & iContador)) Then cmbTipoVeiculo.AddItem Sheets("Controle de Entregas").Range("G" & iContador) End If

    iContador = iContador + 1
Loop

End Sub

Function fnVerificaVeiculoNaLista(pTipoDeVeiculo As String) As Boolean

Dim iContador As Integer

fnVerificaVeiculoNaLista = False

If cmbTipoVeiculo.ListCount <> 0 Then

Else
    For iContador = 0 To cmbTipoVeiculo.ListCount - 1
        If cmnbTipoVeiculo.List(iContador) = pTipoDeVeiculo Then
            fnVerificaVeiculoNaLista = True
        End If
    Next

End If