ユーザー定義型のデータを読み込むのに苦労しています。
区切りはスペースで区切られていて、１行目と３行目以降
は区切りの位置が異なっています。（２行目は空欄です）
行によってデータの区切りの位置が異なっている場合は
どうすればいいのでしょうか？

入力ファイルは
** 01/21/00
    
Time     Steps    East     North   Head  DRAlt  INLat      INLong    INEPE    Bofst  
1:04:59      1      0.6     -0.4  130.4     94   35.00000   139.00000   100   　0.0 　
1:05:00      1      0.6     -0.4  129.4     94   35.00000   139.00000   100   　0.0

のような感じです。
お手数ですがお願いします。

不特定CSV取込 - 砂嵐 11/27-10:13 No.1572 が参考になるかと思います。

ありがとうございます。No.1572を拝見しましたが、
配列に正しく読み込むことが出来ませんでした。
コードをのせるので何かアドバイスをいただけませんか？
お手数ですがお願いします。

Private Sub Command2_Click()
    Dim strTextLine As String
    Dim TmpTxt()    As String
    Dim dataN       As Integer
    Dim i           As Long
    Dim intFileNo   As Integer
    Dim DRM()       As String
    intFileNo = FreeFile
    Open "test" For Input As #intFileNo
    Do While Not EOF(intFileNo)
        Line Input #intFileNo, strTextLine
        TmpTxt = Split(strTextLine, " ")
        dataN = UBound(TmpTxt)
        For i = 0 To dataN
            DRM() = TmpTxt()
        Next i
        Loop
    Close #intFileNo
End Sub

> ありがとうございます。No.1572を拝見しましたが、
> 配列に正しく読み込むことが出来ませんでした。
> コードをのせるので何かアドバイスをいただけませんか？

どのように「正しく読み込むことが出来ませんでした」のですか？
１行目と２行目の関係ですか？
１行目と２行目が不要なら空読み（ Do While の前で Line Input する）するとか。
空白が２ケ続いていてとかなら　２ケを１ケに　Replace するとか。

１行目、２行目の関係です。なかなかうまくいかずに３日たちます・・・
このようなファイルなんですが、何かいい読み込ませ方はありますか？

↓ここからがデータファイルです。
*** 01/21/00 01:04:59

  Time    Steps    East     North   Head  DRAlt    INLat      INLong    INEPE
1:04:59      1      0.6     -0.4  130.4     94   35.00000   139.00000   100
1:05:00      1      0.6     -0.4  129.4     94   35.00000   139.00000   100
1:05:00      1      0.6     -0.4  129.4     94   35.00000   139.00000   100
1:05:00      1      0.6     -0.4  129.4     94   35.00000   139.00000   100

このデータをMSFlexGridに読み込みデータを処理するのが最終目的なんですが・・・
お手数ですがお願いします。

> １行目、２行目の関係です。なかなかうまくいかずに３日たちます・・・

ですから、どう様に不具合なのですか？
質問には答えずにサンプルデータを書かれても困ります。

最初の（Ｎｏ．４９２１）では１から全てが同じ読み込み処理の様でした。
１行目、２行目は、３行目以降とは異なるのですから
読み込み、そのものを他（３行目以降）とは変えて
MSFlexGridに読み込みさせる時も別にすれば良いのではありませんか？
ロジックを落ち着いて考えて下さい。
場合には依っては紙に手で書いて、どう処理すれば良いか．．．等と。

どうもありがとうございました。ちょっと休憩して紙に書いてなどして
また考えてみます。素人なものですいません。

>配列に正しく読み込むことが出来ませんでした。
TmpTxt() に入っていませんか？

>         For i = 0 To dataN
>             DRM() = TmpTxt()
>         Next i

この部分は何をしているのですか？

下記と変更して見て下さい。

        For i = 0 To dataN
            Debug.Print TmpTxt(i) & "      ";
        Next i
        Debug.Print

たびたびすいません・・・

For i = 0 To dataN
DRM() = TmpTxt()
Next i

↑上の部分はＤＲＭ（）というString型の変数に読み込み、
MSFlexGridに読み込ませようとしたものです。（よくわからないので・・・）

> 下記と変更して見て下さい。
>
>         For i = 0 To dataN
>             Debug.Print TmpTxt(i) & "      ";
>         Next i
>         Debug.Print

変更したのですが、イミディエイトウィンドに表示はされたんですが
全てのデータが表示されないのですが、あれは後半部分しか表示されないのでしょうか？
新たに配列に入力しないとMSFlexGridなどに出力するのは無理でしょうか？

ユーザー定義型には入力せずにMSFlexGridに直接表示させることに
しました。花ちゃんさん、nobuさんありがとうございました。

DRM()  の配列のサイズの宣言、指定が無い。

>             DRM() = TmpTxt()    '配列の添え字が無い

各行のデータを　DRM() に入れるとするなら
２次元配列にする必要があるでしょう。

DRM( 行、列 ) の様に。
読み込んで、そのまま　MSFlexGrid　ならDRM() は不要で TmpTxt()　だけで良いのでは。
DRM() = TmpTxt()　の両方書いてあると言う事は
２次元配列に一旦保存してから、改めて表示する時に配列から読む積もりなのでしょうね。