Private Sub rtf_KeyPress(KeyAscii As Integer)
  Const sChars = "AELISTO"
  Const sReplace = "431!$70"
  Dim nPos As Long
 
  nPos = InStr(sChars, UCase$(KeyAscii))
  If nPos > 0 Then KeyAscii = Asc(Mid$(sReplace, nPos, 1))
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de