Soy algo nuevo en programación y estoy teniendo problemas para hacer que esto funcione. Se supone que debo ejecutar este código con un delegado, pero me he encontrado con un error tras otro. Estoy usando Vb.net. ¿Alguien podría ayudarme a resolver los problemas de este código?

Public Delegate Function D()
Dim Str As String = Console.ReadLine()
Sub Main()
    Dim D1 As D
    D1 = New D(AddressOf Fn1)
End Sub
Function Fn1()
    System.Console.WriteLine("Please enter the string")

    Dim revstr As String = StrReverse(Str)
    Console.WriteLine("Reverse:")
    Console.WriteLine(revstr)

    Console.WriteLine("A,mount of characters in the string:")
    Dim Count As Integer = Str.Length
    Console.WriteLine(Count)

    Console.WriteLine("Amount of words in the string:")
    Dim TempA() As String = Str.Split(" ")
    Console.WriteLine(TempA.Length & " ")
    Console.ReadKey()
End Function

¡Gracias por cualquier ayuda que cualquiera pueda dar!