Function ExtractTextAfterNumericSpace(cellValue As String) As String
Dim firstNumericPosition As Integer
Dim extractPosition As Integer
' Find the position of the first numeric character in the string
firstNumericPosition = 0
For i = 1 To Len(cellValue)
If IsNumeric(Mid(cellValue, i, 1)) Then
firstNumericPosition = i
Exit For
End If
Next i
' Extract the text after the first numeric character
If firstNumericPosition > 0 Then
extractPosition = firstNumericPosition
ExtractTextAfterNumericSpace = Mid(cellValue, extractPosition)
Else
' If no numeric character found, return an empty string
ExtractTextAfterNumericSpace = ""
End If
End Function