vba-function extract code.vba

Function EXTRACT_CODE(cell)
    Dim result As String
    Dim allMatches As Object
    Dim RE As Object
    Set RE = CreateObject("vbscript.regexp")
    
    RE.Pattern = "[0-9]{6}"
    RE.Global = True
    RE.IgnoreCase = True
    Set allMatches = RE.Execute(cell)
    
    If allMatches.Count <> 0 Then
        result = allMatches.Item(0).value
    End If
    
    EXTRACT_CODE = result
End Function