Function GetDec( FunctionName As String) As String
Dim sName As String
Dim sstart As Long
Dim slen As Integer
 
sName = "Function " & FunctionName
 
If InStr(1, code.text, sName, vbTextCompare) = 0 Then
Exit Function
End If
 
sstart = InStr(1, code.text, sName, vbTextCompare) + Len(sName) - Len( _
  FunctionName)
slen = InStr(sstart, code.text, ")", vbTextCompare) - sstart + 1
 
GetDec = Mid(code.text, sstart, slen)
End Function

MsgBox lala("Hallo Welt!", 24)
 
Function irgendwas(Modus, Paramteter1)
...
End Function
 
Function lala(Text, Zahl)
...
End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co