>I need to automatically replace quotes and apostrophes with backticks as the user types into a text box. How do I do this?

Like this:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Chr(KeyAscii) = "'" Then KeyAscii = Asc("`")
End Sub