Declare str1 as a string
Set str1 = 1164NB1 as your string value
then use the MID function:
MID(str1,4,2)

This will grab and return the 4th and 5th characters of your string