请问这个正则表达式如何写?

[taojm]

一个文本中包含
Begin Class class1
Begin SubClass subClass1
name=1
type=2
....=.....
....
End
Begin SubClass subClass2
name=2
End
Begin SubClass subClass3
type=3
....=.....
....
End
End
请问我如何用正则表达式获取每个SubClass中的内容?
Public FileName as String
Public Regex As New RegExp
Public RegMatches As MatchCollection
Public RegMatch As Match
Public FileStream As New Stream

FileName="d:\a.txt"
FileStream.Mode = adModeShareDenyRead
FileStream.Charset = "iso-8859-1"
FileStream.Open
FileStream.LoadFromFile FileName '把文本的内容读进去
Regex.Pattern = "\bBegin SubClass\S*????????\bEnd" '请问当中的问好如何写?
Set RegMatches = Regex.Execute(FileStream.ReadText)
MsgBox RegMatches.Count
For Each RegMatch In RegMatches
MsgBox RegMatch.Value
Next
请问当中的问好如何写?
我想在MsgBox RegMatch.Value中看到
Begin SubClass subClass1
name=1
type=2
....=.....
....
End
这样的集合.谢谢^0^