Define a delegate to be a pointer to a subroutine that has a string parameter. : Delegate « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Delegate

public class Test

   public Shared Sub Main
        Dim m_DisplayStringRoutine As StringDisplayerType

        m_DisplayStringRoutine = AddressOf ShowStringInMessageBox ' ShowStringInOutputWindow

        m_DisplayStringRoutine("Hello world")
   End Sub

    Private Delegate Sub StringDisplayerType(ByVal str As String)

    Private Shared Sub ShowStringInOutputWindow(ByVal str As String)
        Console.WriteLine(str)
    End Sub

    Private Shared Sub ShowStringInMessageBox(ByVal str As String)
        Console.WriteLine("+++"+str)
        
    End Sub

End class

+++Hello world