VB 读取多行指定文本

例如读取[路径]这下面的
路径 =
但是还要在下一个[]之上。可以用“[”来区分。
在两个[之间，读取“路径 = ”这条，咋办？就像读取ini一样，不过这是Text控件里的内容。
数量太巨大了。

这是我以前写的。

新建一个标准模块，叫IniCommon

Option Explicit

'获得例如"a=b"的表达式的a值
Public Function GetEName(ByVal inE As String) As String
GetEName = Trim(Left(inE, InStr(inE, "=") - Len("=")))
End Function

'获得例如"a=b"的表达式的b值
Public Function GetEValue(ByVal inE As String) As String
GetEValue = Trim(Right(inE, Len(inE) - InStr(inE, "=")))
End Function

'删除字符串两边的引号
Public Function DeleteQuotationMarks(ByVal inS As String) As String
If Left(inS, 1) = Chr(43) Or Right(inS, 1) = Chr(43) And Len(inS) >= 2 Then
DeleteQuotationMarks = Mid(inS, 2, Len(inS) - 2)
ElseIf Left(inS, 1) = Chr(39) Or Right(inS, 1) = Chr(39) And Len(inS) >= 2 Then
DeleteQuotationMarks = Mid(inS, 2, Len(inS) - 2)
Else
DeleteQuotationMarks = inS
End If
End Function

再建一个类模块，叫做IniHandle