Olá, professor! No passo 8, não seria cmbNomedoCombo.List(iContador) e não cmbTipoVeiculo.List(iContador) ?
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Olá, professor! No passo 8, não seria cmbNomedoCombo.List(iContador) e não cmbTipoVeiculo.List(iContador) ?
Olá Felipe, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
O correto é cmbTipoVeiculo.List(iContador), pois estamos verificando o combobox exato do veículo para verificar se o veículo existe ou não na lista. Isso é mostrado no final da aula Criando um laço do tipo For-Next em torno do minuto 6:52 em diante e também, ao longo da aula Criando um laço do tipo Do-While.
Deixo abaixo como ficará a rotina completa fnVerificaVeiculoNaLista:
Function fnVerificaVeiculoNaLista(pTipoDeVeiculo As String) As Boolean
Dim iContador As Integer
fnVerificaVeiculoNaLista = False
If cmbTipoVeiculo.ListCount <> 0 Then
For iContador = 0 To cmbTipoVeiculo.ListCount - 1
If cmbTipoVeiculo.List(iContador) = pTipoDeVeiculo Then
fnVerificaVeiculoNaLista = True
End If
Next
End If
End Function
Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.
Em caso de dúvidas estou à disposição.
Abraços e bons estudos!