The sample code should work and you can refine it by changing



If IsNumeric(TmpStr) And Len(TmpStr) > 2 Then



To



If IsNumeric(TmpStr) And Len(Words(0)) = 9 Then



The first one just looks for a numeric string with more than two numbers.
The new line will look for a numeric string that has nine characters
(including optional dashes)