Quitar Beep al presionar Enter

[data_uy]

estimado yo lo soluciones poniendo la linea de siencio al final
de la condición que yo queria, espero te sirva.

Private Sub Text2_KeyPress(KeyAscii As Integer)

' Sí la tecla precionada es Enter entonces
If KeyAscii = 13 Then

Buscartxt '<--------- aca me busca mis datos

KeyAscii = 0 '<-------- aca mata el audio.
End If
End Sub