Simple VBScript Label Expression for labelling Highway names on a map

Question

What is the VBScript Label Expression for labelling Highway names - the numerical text only (which is usually the last one to three digits of a road name) in ArcGIS 10?

For example, I want to label "Highway 404", or "Highway 1" on a map, but want to label them with an oval symbol with the highway number on it.

Because I found the convert labels to annotation is not efficient if you have so many roads on a map (Like it is not efficient if I have to change the highway names one-by-one).

Note: I don't have solid knowledge in programming codes, and therefore, need some help that would enhance my cartography workflow in school work.
So what I know is very limited, like I only know how to use the label expressions of UCase([Name]), or LCase([Name]).

PaulScipione1 · Answer

I wanted to something similar with split and even though this is not exactly the same question, I wanted to post my result because your solution helped me with mine (thanks!).  I have a field in a shapefile export that contains the compliments for a Fiber separated by a | character.  My solution was to create the first part of the label then to iterate through the elements in the split to keep adding:

Function FindLabel ( [TOTALFOOTA], [ROUTE], [UNITDESCRI], [FIBERCOMPL] )
    a = SPLIT([FIBERCOMPL], "|")
    b = _
        [TOTALFOOTA] & "'" & vbCrLf& _
        [ROUTE] & vbCrLf& _
        [UNITDESCRI]
    For Each x In a
        b = b & vbcrlf& x
    Next
    FindLabel = b
End Function

MarcinGasior · Answer

To label highways with specific symbol find required text symbol in Symbol Selector:
[ATTACH=CONFIG]15158[/ATTACH]

If you want to extract a highway number from string in pattern "Highway X(xyz)" use simple expression:Mid([Name], 9)

If a string before a number has changing length or more than one word, 
select Advanced in Expression section and use the code which split name into chunks divided by space " " and take the last one:Function FindLabel ( [NAME] )
  a = Split([NAME], " ")
  b = a(UBound(a))
  FindLabel = b
End Function

RoadSymbol.png