To extract a word with suffix like 'Block A', you have to write a function, it is difficult, because LabelExpression accepts a single line expression. Maybe like this using InStr, but if an error occurs, the label will not be generated:
"Left(InStr(InStr(field,\" \"),field,\" \")"
\".\" is VBS literal - "." VBS required double quotes for literals