Option Strict OnPublic Delegate Function GetTime() As StringModule Test Sub Main() Dim t As New GetTime(Function() DateTime.Now.ToString()) Console.WriteLine(t) End SubEnd Module