Option Explicit
 
Private Sub Command_Click()
 
  Irgendwo_Irgendwas
 
End Sub
 
 
Public Sub EineProzedur(VarA)
  MsgBox VarA
End Sub
 
Private Sub Irgendwo_Irgendwas()
 
  Dim MyKlasse As New Class1
 
 
  MyKlasse.TestSubA Me, "EineProzedur"
 
End Sub

Option Explicit
 
Public Sub TestSubA(ByRef m As Object, ByRef AufzurufendeFunktion As String)
      'irgendeinxbelibigercode
  Dim VarA As Integer
 
  VarA = 2
  CallByName m, AufzurufendeFunktion, VbMethod, VarA
End Sub

Gruß
Dirk

--
?Get it right the first time