VBA code to extract groups of numbers from strings

[surya80]

Hello I've been trying to clean some data in cells and format the strings in a specific way e.g.

Input:
abcdef1234ghij5678klmn

Required format of string:
Part-1234, Section-5678

The sequence of letters preceding, in between and following the numeric digits can be of variable length and may include alphabets, spaces, hyphens, commas, periods and slashes ( "/" or "\" )

I'm just quite a novice in VBA programming I just don't know enough of it to get my head around this problem.
Thank you for any help and guidance towards solving this.

 

[juddaaaa]

Nice one Juddaaaa. One small point - my (long-winded) solution returns a 0 if too large a group number is chosen, yours throws a #value! error.

Easily fixed

Function GetNumber(Inp As String, Pos As Integer) As Variant
    Dim matches As Object
    
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+"
        .Global = True
        .MultiLine = True
        Set matches = .Execute(Inp)
    End With
    
    If Pos > matches.Count Or Pos < 1 Then
        GetNumber = 0
        Exit Function
    End If
    
    GetNumber = matches(Pos - 1)
End Function

 

[surya80]

Easily fixed

Function GetNumber(Inp As String, Pos As Integer) As Variant
    Dim matches As Object
   
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+"
        .Global = True
        .MultiLine = True
        Set matches = .Execute(Inp)
    End With
   
    If Pos > matches.Count Or Pos < 1 Then
        GetNumber = 0
        Exit Function
    End If
   
    GetNumber = matches(Pos - 1)
End Function

Thanks for this pretty elegant solution