Quinn,
Sorry, I think I missed understood what you are trying to achieve, I read it that you have road names which end in 1E or 1S and you wanted to remove them on your labels, i.e:
'Pinewood Road 1E' would be just 'Pinewood Road'
If you want everything right of your last space in the attribute value use:
if InStrRev(txt," ") > 0 Then
right([Road_Name],len([Road_Name]) - InStrRev([Road_Name]," "))
End If
everything left of your last space use:
if InStrRev(txt," ") > 0 Then
left([Road_Name],InStrRev([Road_Name]," "))
End If
Regards
Anthony