Evento Change

Private Sub txtHistCheckListNovo_Change()

txtHistCheckListNovo.Text = Replace(txtHistCheckListNovo.Text, "'", "", 1, Len(txtHistCheckListNovo))

txtHistCheckListNovo.Text = Replace(txtHistCheckListNovo.Text, """", "", 1, Len(txtHistCheckListNovo))

txtHistCheckListNovo.SelStart = Len(txtHistCheckListNovo.Text)

End Sub

E este?

Private Sub txtHistFeedBackNovo_KeyPress(KeyAscii As Integer)

If KeyAscii = 39 Or KeyAscii = 34 Then

KeyAscii = 0

End If

End Sub