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