problema con una stringa di testo

[Vincent.Zeno]

stringa = "marco rossi (roma)"

inizio    = InStr(stringa,"(")+1
quanti    = InStr(stringa,")")-inizio

stringa    = Mid(stringa,inizio,quanti)