Function MusicF(ByVal MusA As String) As String
Dim Tspl() As String, N&
Tspl = Split(MusA)
For N = 0 To UBound(Tspl): Tspl(N) = NoteF(Tspl(N)): Next N
MusicF = Join(Tspl)
End Function
Function NoteF(ByVal NoteA As String) As String
Dim N&, Minus As Boolean
N = Asc(NoteA) - 64: Minus = N > 7: If Minus Then N = N - 32
NoteF = Choose(N, "LA", "SI", "DO", "RE", "MI", "FA", "SOL")
If Minus Then NoteF = LCase(NoteF)
NoteF = NoteF & Mid$(NoteA, 2)
End Function