Variável do tipo boolean - Erro em tempo de execução - tipos imcompatíveis

[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