UDF to Split Text String

This aren't UDFs, they are reformatting macros. Run this on a copy of your values in column A and see if they do what you wish.

Option Explicit
Option Compare Text

Sub ParseDataValue()
'Author:    Jerry Beaucaire
'Date:      1/27/2010
'SUMMARY:   Reduce text strings to specific values
Dim LR As Long, i As Long, v As Long
Dim RNG As Range, MyArr, Vals

LR = Range("A" & Rows.Count).End(xlUp).Row
Set RNG = Range("A:A").SpecialCells(xlCellTypeConstants)
MyArr = Application.WorksheetFunction.Transpose(RNG.Value)

    For i = 1 To LR
        Vals = Split(MyArr(i), " ")
        Cells(i, "A") = Vals(0)
        Cells(i, "B") = Format(Vals(UBound(Vals)), "0.00")
    Next i

Columns("B:B").NumberFormat = "0.00"
Columns.AutoFit
End Sub

Sub ParseDataSTATUS()
'Author:    Jerry Beaucaire
'Date:      1/27/2010
'SUMMARY:   Reduce text strings to specific status report
Dim LR As Long, i As Long
Dim RNG As Range, MyArr

LR = Range("A" & Rows.Count).End(xlUp).Row
Set RNG = Range("A:A").SpecialCells(xlCellTypeConstants)
MyArr = Application.WorksheetFunction.Transpose(RNG.Value)

    For i = 1 To LR
        Cells(i, "A") = Left(MyArr(i), InStr(MyArr(i), " ") - 1)
        
        If InStr(MyArr(i), "Very Limited") > 0 Then
            Cells(i, "B") = "Very Limited"
        ElseIf InStr(MyArr(i), "Not Limited") > 0 Then
            Cells(i, "B") = "Not Limited"
        ElseIf InStr(MyArr(i), "Somewhat Limited") > 0 Then
            Cells(i, "B") = "Somewhat Limited"
        End If

    Next i

Columns.AutoFit
End Sub