Delegate Function ConvertMethod(ByVal inString As String) As String
Module DelegateExample
Public Sub Main()
Dim convertMeth As ConvertMethod = AddressOf UppercaseString
Dim name As String = "Dakota"
Console.WriteLine(convertMeth(name))
End Sub
Private Function UppercaseString(inputString As String) As String
Return inputString.ToUpper()
End Function
End Module