Public Sub TestSubA([ByRef,ByVal] AufzurufendeFunktion as [?????])
      'irgendeinxbelibigercode
      VarA=2
      [?????]  AufzurufendeProzedur VarA
End Sub

Private Sub EineProzedur (VarA)
      MsgBox VarA
End Sub
 
Private Sub Irgendwo_Irgendwas ([Args...}) 
      MyKlasse As New MyKlasse
      MyKlasse [?????] EineFunktion
End Sub