How to extract a specific data in a column and parse it in another column with VBA

[snb]

Or

Function F_snb(c00)
    For Each F_snb In Split(c00)
       If Len(F_snb) = 11 And Len(CStr(Val(Mid(F_snb, 3)))) = 9 Then Exit For
    Next
End Function