Private Sub txtTest_KeyPress(KeyAscii As Integer)
  With txtTest
    Select Case KeyAscii
      Case Asc("a")
        .SelColor = vbRed
      Case Asc("b")
        .SelColor = vbBlue
 
      Case Else
        .SelColor = vbBlack
    End Select
  End With
End Sub