Problemas de sonido en la programación VB

Esto no tiene nada que ver con el código que agregaste. Si lo eliminas, también emitirás un sonido "dong" "dong" cuando presiones la tecla Enter en el cuadro de texto. Si no me crees, inténtalo. La solución es:

Private Sub Text1_KeyPress(KeyAscii As Integer)

Si KeyAscii = 13 Entonces

Texto2.> Finalizar si

Fin Sub