As long as every record has a "-" separating the road type, and the route number you could try this
In the label expression, check 'advanced' and paste the following
[HTML]Function FindLabel ( [ST_NAME] )
a = split( [ST_NAME] ,"-")
b = a(1)
FindLabel = b
End Function[/HTML]