VB6读取文本，并将每行固定的字段赋给变量

    dim nFile as Integer, strTmp as String
    dim arTmp() as String
    nFile = FreeFile
    Open 文本文件全路径名 For Input As #nFile
    Do While Not EOF(nFile)
       Line Input #nFile, strTmp
       arTmp=Split(strTmp,分隔符)  '不知道你分隔符是空格还是TAB?
       分析该数组（arTmp(0)对应第一个字段，依次类推）
    Loop
    Close #nFile