This will help you take out each part of the number, I named the field for the call number as "callNumber"
Dim periodP, sortP1, sortP2, sortP3, sortP4, sortP5
periodP = InStr(1, callNumber, ".") 'position of period
sortP1 = Left(callNumber, 2) 'the first 2 letter
sortP2 = Mid(callNumber, 3...