求助vb循坏语句

cocoleexs

我的数据格式是图片上的这种，因为我想固定调取第二列cloud的数值，但由于有的数占3位，有的占4位，我用
txt1.Text = Split(sArr(2), " ")(12)时可以调出四位的10.0，但是想要调取三位的9.7，又变成Split(sArr(2), " ")(13)。所以想用循坏语句，从FH列后的第一个空格（txt1.Text = Split(sArr(2), " ")(8））开始调，如果是空格就继续调后一位，如果不是空格就把值赋给txt1.TEXT。vb小白，下面自己鼓捣的程序，运行一直是空白，求大侠指点~~~~

Private Sub Command1_Click()
   Dim lngFn As Long, strT As String
    lngFn = FreeFile
    Open "e:\1.dat" For Binary As #lngFn
    strT = Space(LOF(lngFn))
    Get #1, , strT
    Close #lngFn
    Dim a As Long
    sArr = Split(strT, vbCrLf)
    a = 1
   txt1.Text = Split(sArr(0), " ")(a)
   For a = 8To 12  
   If (txt1.Text = "") Then
    End If
    Next  a
End Sub

qxtjls

固定取4位，用trim就可以了