[RESOLVED] Read a line with multiple numbers as an array

[Schmidt]

To add a short Variant (using a Variant <g>) to the pile:

Sub GetDoubles(S As String, D() As Double)
Dim n As Long, V
  For Each V In Split(S, " ")
    If Len(V) Then ReDim Preserve D(n): D(n) = V: n = n + 1
  Next
End Sub

Olaf