Type Info:
HighlightedTargetText As String
Dim Bar As TranslationEditBar Set Bar = Application.Windows.TranslationEditBar MsgBox Bar.HighlightedTargetText