从文本文件读取？

Public Sub ReadMyFile()
    Dim inputfile As String
        inputfile = "C:\myfile.txt"
    Dim DataFile As Integer
        DataFile = FreeFile
    Dim Dataline As String
   
    Open inputfile For Input As #DataFile
        While Not EOF(DataFile)
            Line Input #DataFile, Dataline
                ' now you've got the line so do your stuff here
        Wend
    Close #DataFile
end sub

replace(dataline,";",",",,,vbBinaryCompare)

dim LineArray as variant
LineArray =Split(dataline,",",,vbBinaryCompare)

Sub TestParse()
    Dim sLine As String
    Dim Thang
    sLine = "A-ANNO-DIMS;Witness/extension lines, dimension terminators, dimension text;Continuous;35;7;1;LayerCreator;"
    Thang = ParseLayerInfo(sLine)
    
    For i = 0 To UBound(Thang)
        Debug.Print Thang(i)
    Next
End Sub
Public Function ParseLayerInfo(sLine As String) As Variant
 
    Dim Pos1 As Long, Pos2 As Long
    Dim i As Integer
    Dim vInfo(6) As String
    
    Pos1 = InStr(1, sLine, ";")
    vInfo(0) = Left(sLine, Pos1 - 1)
    For i = 1 To 6
        Pos2 = InStr(Pos1 + 1, sLine, ";")
        vInfo(i) = Mid(sLine, Pos1 + 1, (Pos2 - Pos1) - 1)
        Pos1 = Pos2
    Next i
    ParseLayerInfo = vInfo
    
End Function