Pesquisar na Comunidade

Boa Tarde/Boa Noite, Gostaria de perguntar a quem pudesse me explicar sobre o erro, e me dar uma dica sobre esse bloco de código. Na Plan3: A caixa de texto (txtfimprazo) recebe o foco; A caixa de texto fica na cor vermelha; Uma variável (resultado) recebe dois valores diferentes, do tipo boolean. Se o resultado for sim (true - digitando sim na caixa) então deveria somar a data atual (dependendo do dia que usar o formulário) + o valor de 20 dias (conteudo de Plan1.txtvlai.Value) Se o resultado for não (false - digitando não na caixa) então deveria somar a data atual (dependendo do dia que usar o formulário) + o valor de 15 dias (conteudo de Plan1.txtvreq.Value) Se o resultado for nada (vazio - nothing) então não deveria fazer nada. Então simplesmente levaria o foco para a próxima caixa. Então o que acontece: dá o erro tipos imcompatíveis, marcando abaixo onde está em negrito: a palavra "positivo". obrigado. Private Sub txtfimprazo_GotFocus() Plan3.Unprotect "sic" txtfimprazo.BackColor = &HFF& Dim positivo As Boolean Dim negativo As Boolean 'Dim resultado(2) As Boolean Dim resultado(2) As ReturnBoolean positivo = True negativo = False If txtlai.Text = "SIM" Then Set resultado(0) = positivo GoTo verdadeiro ElseIf txtlai.Text = "NÃO" Or txtlai.Text = "não" Then Set resultado(1) = negativo GoTo falso ElseIf txtlai.Text = "" Then Set resultado(2) = Nothing GoTo nada End If GoTo fim verdadeiro: txtfimprazo.Value = Date + Plan1.txtvlai.Value GoTo fim falso: txtfimprazo.Value = Date + Plan1.txtvreq.Value GoTo fim nada: txtfimprazo.Value = txtfimprazo.Value GoTo fim fim: Plan3.Protect "sic" End Sub

Boa Noite! Preciso que reproduzam o esquema abaixo (coloquem observações para que eu entende o codigo): tentativa 01: NORMAL: 45% ACRESCIMOMIN: 48% ACRESCIMOMAX: 60% resultante: PROBABILIDADE FAVORAVEL tentativa 02: NORMAL: 25% ACRESCIMOMIN: 28% ACRESCIMOMAX: 40% resultante: PROBABILIDADE DESFAVORAVEL tentativa 03: NORMAL:16% ACRESCIMOMIN: 19% ACRESCIMOMAX: 31% resultante: PROBABILIDADE DESFAVORAVEL condições para esse esquema: O numero de tentativa deve se repetir até 100. O %(percentual) dado pelo NORMAL deve ser aleatório porém deve ser definido em até 50% apenas. ACRESCIMOMIN = soma do valor dado pelo NORMAL somando +3% ACRESCIMOMAX= soma do valor dado pelo NORMAL soando +15% Resultante é dado pelo condição onde resultante FAVORAVEL for Maior que 40% dado pelo NORMAL e DESFAVORAVEL dado se NORMAL for menor que 40% Sei que pode esta um pouco complexo mais agradeceria a quem puder ajudar e comentar usando */ comentando todos os fatores importante \* pois sou iniciante e ao tentar criar esse sistema consegui parcialmente e me senti frustrado por não consegui completa-lo.