DIM asReturn as String
asReturn = DLookup([Your],[Values],"Go in here")
msgbox "DLookup returned " & asReturn ' Just to make sure we get something
asReturn = Mid(asReturn, 2, 4) 'Returns just characters 2-5
msgbox "Substring is " & asReturn
Once you get all that working right, you will eventually change it to
asReturn = Mid(DLookup([Your],[Values],"Go in here"), 2, 4)