Podrías usar FindWindow para obtener el handle de la ventana principal del WinAmp usando el nombre de la clase (ahora no lo recuerdo luego te digo o buscalo con un visor de recursos). Luego usas GetWindowText con ese handle para obtener el texto de la ventana que es lo que se está escuchando.
Esa alternativa también hace lo mismo pero el problema es que es lentisima. Fijate que hay muchas llamadas a funciones y eso requiere de un tiempo considerable. Además el concatenar también es lento.
En fin las dos alternativas funcionan la única diferencia es el rendimiento. Este tema vino bien para destacar esto porque a veces cuesta escribir código que tenga buen rendimiento y la única forma de aprender es sabiendo los pros y las contras mediante ejemplos.
For i = 1 To 255 If (i > vbKeyA And i < vbKeyZ) And _ (i > 97 And i < 122) Then StrSpec = Replace$(StrSpec, Chr$(i), "[" & i & "]") End if Next End Sub