Por ejemplo, si quieres desactivar el sonido que aparece al presionar Enter o Escape, puedes hacer lo siguiente:
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then KeyAscii = 0 If KeyAscii = vbKeyEscape Then KeyAscii = 0 End Sub Espero que te sirva...