Ich bin etwas neu in der Programmierung und ich habe Probleme, diese Arbeit zu machen. Ich soll diesen Code mit einem Delegaten ausführen, aber ich habe Fehler nach Fehler ausgeführt. Ich benutze Vb.net. Könnte mir jemand helfen, die Probleme in diesem Code zu lösen?

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

Vielen Dank für jede Hilfe, die jeder geben kann!