求关于txt文件导入块属性的问题,以下是我的代码


哪位大侠帮我看看一个问题，我现在可以读出txt了，可是就是不知道怎样把txt文本导入块属性，下面是我的代码：
Private Sub CommandButton1_Click()
Me.Hide
Dim Filename1 As Variant
Dim str
Dim i As Integer
    m = 0
With comDlg
.DialogTitle = "选择文本文件"
.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
'.InitDir = "C:\"
.ShowOpen
If .FileName = "" Then
       Exit Sub
    End If
    Open .FileName For Input As #1
    Do While Not EOF(1)
       Line Input #1, str
       Dim arr() As String
       arr = Split(str, ";")        
       i = UBound(arr) - 2 + 1
       For j = 1 To i - 1                 
          Debug.Print arr(j)
          这里应该是导入到块属性的代码，不知怎样去处理了，
       Next j
       m = m + 1     
    Loop
    Close #1
End With
End Sub
谢谢！  急