Olá Amigos,

Estou com uma dificuldade em iniciar um beep ao executar uma MsgBox comum.

Private Sub txtverifica2_Enter()

If txtcalculo = 1 then

Executar Beep1
MsgBox "Calculo Efetuado"

Else:

Executar Beep2
MsgBox "Calculo Efetuado com erros. Verifique dados"

End If

Exit Sub

Abradeço muito a ajuda. Tenho pesquisado mas não estou conseguindo ativar. Vem dando muito erros. Então resolvi fazer do básico.