Delegate Sub MyDelegate(ByVal Nachricht As String)
 
  Public Sub MyTestDelegate(ByVal Nachricht As String)
    Return
  End Sub
 
  Private ht As New System.Collections.Hashtable
  Public Sub test()
    ht.Add("test", New MyDelegate(AddressOf MyTestDelegate))
  End Sub
  Public Sub test2(ByVal ProcName As String)
    If (ht.Contains(ProcName)) Then
      CType(ht(ProcName), MyDelegate)("Nachricht")
    End If
  End Sub