meu ComboBox fica em branco - O que fiz de errado ?

Private Sub UseForm_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 fnCmbTipoVeiculo.ListCount = 0 Then fnVerificaVeiculoNaLista = False
    Else
    For iContador = 0 To cmbTipoVeiculo.ListCount - 1
        If cmbTipoVeiculo.List(iContador) = pTipoVeiculo Then
        fnVerificaVeiculoNaLista = True
        End If
    Next
    End If

End Function