VB怎样将下面的一组数据输入到一个数组中

[qq_27585101]

TXT文件：下面有3个数据：
1 0.25
2 0.3
3 0.35
输出的样子：[3 0.25 0.3 0.35]
第一列为数据的总个数

[脆皮大雪糕]

Option Explicit

Private Sub Command1_Click()
Dim a As String
'模拟输入文本
a = a & "1  0.25" & vbCrLf
a = a & "2  0.3" & vbCrLf
a = a & "3  0.35"


Dim aryTmp1() As String
Dim aryTmp2() As String
Dim i As Integer
Dim strOut As String
aryTmp1 = Split(a, vbCrLf)

strOut = "["
strOut = strOut & UBound(aryTmp1) + 1
For i = LBound(aryTmp1) To UBound(aryTmp1)
    aryTmp2 = Split(aryTmp1(i), "  ")
    
    strOut = strOut & " " & aryTmp2(1)
Next
strOut = strOut & "]"
Debug.Print strOut
End Sub

[xzjxucxx]

先输入到一个动态数组中，然后输出就行了