Function Horse_Musik(ByVal Texte As String, ByVal NoCol As Integer)
Dim Deb As Integer, Lon As Integer
Deb = InStr(1, Texte, "("): Lon = InStr(Deb, Texte, ")") - Deb + 1
Texte = Replace(Texte, Mid(Texte, Deb, Lon), "")
If NoCol > 1 Then NoCol = (NoCol - 1) + NoCol
Horse_Musik = Mid(Texte, NoCol, 1)
If Not IsNumeric(Horse_Musik) Then Horse_Musik = 0
End Function