Split String Up

[Evan]

Whats the easiest way to split this string up into 3 numbers


Str = " 0.00000000 0.00000000 0.0000000"

[Eras3r]

Dim str As String
    Dim nums() As String
    Dim i As Long
    
    str = " 0.00000000 0.00000000 0.0000000"
    nums = Split(Trim(str), " ")
 
    For i = 0 To UBound(nums)
        MsgBox nums(i)
    Next i

... if you want to convert all the nums to doubles, then do.....

Dim dbls() As Double
    ReDim dbls(UBound(nums))
    
    For i = 0 To UBound(nums)
        dbls(i) = CDbl(nums(i))
    Next i

[Harvester]

Use the Split function

Dim Nums() as String
Dim i as Integer
 
    Nums = Split("0.00000000 0.00000000 0.0000000", " ")
    'Now Nums is an array with 3 items in it.
 
    For i = 0 to 2
        Debug.Print Nums(i)
    Next i
 
    'Nums(0) = 0.00000000 
    'Nums(1) = 0.00000000 
    'Nums(2) = 0.00000000