In diesem Beispiel wird die Startposition der zweiten phonetischen Textzeichenfolge in der aktiven Zelle zurückgegeben.
ActiveCell.FormulaR1C1 = "" ActiveCell.Phonetics.Add Start:=1, Length:=3, Text:="
" ActiveCell.Phonetics.Add Start:=4, Length:=3, Text:="
" MsgBox ActiveCell.Phonetics(2).Start