Find Function or Something of the Like

If it's the only group of digits in the string this UDF might help

Function DigitsFirstID(s As String) As String
  'Harlan Grove, worksheet.functions, 2003-10-20
  'extract first string of  digits,  based on
  '-- http://google.com/groups?threadm=_RK...newsranger.com
    Dim i As Long, j As Long, n As Long
    n = Len(s)
    i = 1
    Do While i <= n And Mid(s, i, 1) Like "[!0-9]"
        i = i + 1
    Loop
    j = i + 1
    Do While j <= n And Mid(s, j, 1) Like "[0-9]"
        j = j + 1
    Loop
    DigitsFirstID = Mid(s, i, j - i)
End Function

Open your file Hit ALT+F11 - Click Insert - Select "module" - Copy paste the code in this module then close the VBA editor.
You now have a new function called "DigitsFirstID" that you can use as any other function, the argument being the string( something like =DigitsFirstID(A2)

Try this in B2 & copy down.

=IFERROR(LOOKUP(9E+300,MID(A2,SEARCH("NPI #",A2)+7,ROW(A$1:A$15))+0),"")