Private Sub Command1_Click()
Dim Methode As String
Dim temp() As String
Dim Parameter() As String
 
Methode = "Private Sub Test(A as String, B as String)"
 
temp = Split(Methode, "(")
temp(1) = Replace(temp(1), ")", "")
Parameter = Split(temp(1), ",")
 
End Sub