Extract number from string in VBA

Question

I have cells in vba that contain strings like this:

QUANTITY SUPPLY <= DAYS SUPPLY|30 IN 23 DAYS

I send these strings through two functions that just pick

Answer 1

This is by far the shortest (5 lines) function to extract the numbers!

Function GetNumbers(str As String, Occur As Long) As Long
Dim regex As Object: Set regex = CreateObject("vbscript.RegExp")
regex.Pattern = "(\d+)"
Regex.Global = True
Set matches = regex.Execute(str)
GetNumbers = matches(Occur)
End Function

Parameters:

1. Str is the string to extract numbers from
2. Occur is the occurrence of that number (it's 0-based so the first number will have the occurence of 0 not 1 and so on)