Boa Tarde!
Não tenho como testar... todavia, veja se colocandom um FOR entre os comandos se ele consegue "parar" um pouco.
If Right(TextBox1.Value, 2) = 24 Then
Call Playn20WAV
For i = 1 to 100000
a = ((a*i) + (a+i) + (a*a)^i
Next
Call PlaynandWAV
For i = 1 to 100000
a = ((a*i) + (a+i) + (a*a)^i
Next
Call Playn4WAV
End If
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 14/03/2013 1:28 pm