Interesante experiencia la que nos cuentas softmania, eres un guerrero como de los pocos, yo estoy nulo en audio y solo sirvo como oyente.
Una pregunta, todo esto ¿en que lenguaje(s) lo desarrollaste? en VB6? o en que mas.
Modificación de código:
Dim sTexto as String
Dim sReclamen as String
'sTexto="muy largo y aburrido" '<-- siempre sReclamen tendrá el mismo valor jeje, por tanto:
Select case sTexto
Case "interesante historia": sReclamen = "YAcosta :) :)"
Case "muy largo y aburrido": sReclamen = "YAcosta >:( >:("
End Select
Saludos