Saulo Fiori da Silva

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