Thread: Parse with VBA

Welcome to the forum.

Where does the string come from?

What do you have so far?

Something like this is the data to be split is in a variable.

Sub z()

    Dim vntNumbers As Variant
    Dim strData As String
    Dim lngIndex As Long
    
    strData = " 12.3    13.0  5.5    "
    Do While InStr(1, strData, Space(2), vbTextCompare) > 0
        strData = Replace(strData, Space(2), Space(1))
    Loop
    
    vntNumbers = Split(Trim(strData), Space(1))
    
    For lngIndex = LBound(vntNumbers) To UBound(vntNumbers)
        Debug.Print lngIndex, vntNumbers(lngIndex)
    Next
    
End Sub