有谁会用正则表达式或字符串提取

以下为一个函数，需要把函数名称，参数，第一行注释，函数内部代码，函数名称，函数前面文字或定义。函数后的其他内容
进行一一分解。做几个函数进行分析太累了，不准确，有什么正则表达式可以通杀吗？

VB code

DIM K1
DIM K2

Private _
Function _
ttt _
(AA As String _
, bb() As String, cc _
As String, Optional tt As String = "asfas(" & _
"(" & "'"")" _
) _
As _
String: Dim bb, b, tt: bb = 3: b = 4: tt = "5+6:_": MsgBox "abc天上:人" & ":" & "_2": End _
Function

'ABCC
'TTT

VB code

Dim K1
Dim K2

Private _
Function _
ttt _
(AA As String _
, bb() As String, cc _
As String, Optional tt As String = "asfas(" & _
"(" & "'"")" _
) _
As _
String: Dim bb, b, tt: bb = 3: b = 4: tt = "5+6:_": End Function 'MsgBox "abc天上:人" & ":" & "_2": End _
Function

'ABCC
'TTT

你这函数写的太bt了。

呵呵，是啊，想做的各种情况都能认出来，实在不容易呀

类型就是这样差不多，看看有什么好代码，用正则表达式或者什么思路

词法分析器，先Baidu或Google,弄清原理后自己写一个，不太难的