Нажать кнопочку Expression и галочку Advanced.
Потом написать на VBscript выражение, которое обработает Вашу строку. Ну примерно так:
Function FindLabel ( [Name] )
  Dim str, str1
  str = Left([Name], 1)
  str1 = Right( [Name], 1)
  FindLabel = str & vbnewline & [Name] & vbnewline & str1
End Function
    
