(Resolvido) Alterar cor de uma caixa

[Oséias Assis]

Ola amigos, boa tarde;

veja bem, estou com o seguinte problema, criei uma rotina q verifica se o texto digitado em um determinado campo é igual a um valor pré-estipulado e muda a cor da borda de uma caixa, porém, meu problema é q ele não esta mudando para a cor desejada, ele muda para preto, alguém pode me ajudar ? preciso muito disso ae, já tentei varias cores, algumas deram certo, mas é q preciso de uma determinada tonalidade q esta me dando trabalho.

mt obrigado, abaixo o código

Funcao.SetFocus

If Funcao.Text = "Membro" Or Funcao.Text = "Diácono(a)" Then

Caixa47.BorderColor = "FFC20E"

Caixa48.BorderColor = "FFC20E"

Else

If Funcao.Text = "Presbítero" Or Funcao.Text = "Evangelista" Then

Caixa47.BorderColor = CC6600

Caixa48.BorderColor = CC6600

Else

If Funcao.Text = "Pastor" Then

Caixa47.BorderColor = 8000

Caixa48.BorderColor = 8000

Else

If Funcao.Text = "Missionário(a)" Then

Caixa47.BorderColor = "FF00FF"

Caixa48.BorderColor = "FF00FF"

End If

End If

End If

End If

[Oséias Assis]

olaaaa amigos ...

o problema foi resolvido pelo orkut,

segue o link;

obrigado ...

http://www.orkut.com.br/Main#CommMsgs?cmm=...410482316874385

[Humm]

só uma dica..

ao invés de usar ELSE e depois IF, use ELSEIF e no final apenas um END IF