COMO POSSO FAZER QUANDO O USUARIO ESCREVER A PALAVRA "NÃO" EM UM CAMPO .TEXT E A MESMA FICAR EM VERMELHO OU EM NEGRITO?

 

POR FAVOR

 

OBRIGADO

Amigo, em um textbox comum, se quiser formatar somente uma palavra específica, fica mais difícil, mas com o objeto RichTextBox, você pode formatar o texto livremente

Veja isto.

 

Private Sub Text1_LostFocus

 If Ucase$(Text1.Text) = "NÃO" Then

  Text1.Backcolor = VbRed

  Text1.Forecolor = VbWhite

 Else

  Text1.Backcolor = VbWhite

  Text1.Forecolor = VbBlack

 End If

End Sub

 

vlu//

 

 

OLHA O QUE ESTOU QUERENDO FAZER :

Function Negrito(PegaFrase, PegaPalavra)
         Dim PosI, PosF
         Dim Inicio
         Dim Meio
         Dim Fim
         Dim Monta

         PosI = InStr(1, PegaFrase, PegaPalavra, 1)
         PosF = PosI + Len(PegaPalavra) - 1

         If PosI > 0 Then
            Inicio = Left(PegaFrase, PosI - 1)
            Meio = vbBlue & Mid(PegaFrase, PosI, Len(PegaPalavra)) & vbBlack
            Fim = Right(PegaFrase, Len(PegaFrase) - PosF)

            'Monta = Trim(Inicio & "<b><u>" & Meio & "</u></b>" & Fim)
            'Monta = Trim(Inicio & "vbBlue" & Meio & "vbBlack" & Fim)
            Monta = Trim(UCase(Inicio) & vbBlue & LCase(Meio) & vbBlack & UCase(Fim))
            Negrito = Monta
         Else
            Negrito = PegaFrase
        End If
End Function

SERÁ QUE ALGUEM PODE ME AJUDAR???
PELO AMOR DE DEUS
OBRIGADO