Нажать кнопочку 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