Functie Getreversed (Opgelost)

Sub Main()
        Dim message As String = "Hello World !"
        Console.WriteLine(message)
        '
        Dim startIndex As Integer = 6
        Dim length As Integer = 5
        Dim reversedMessage As String = GetReversed(message, startIndex, length)
        Console.WriteLine(reversedMessage)
        '
        startIndex = 4
        length = 9
        Dim character As Char = "l"c
        Dim indexOfL As Integer = GetIndexOf(character, message, startIndex, length)
        Console.WriteLine(indexOfL)
        '
        startIndex = 0
        length = 8
        character = "r"c
        Dim indexOfR As Integer = GetIndexOf(character, message, startIndex, length)
        Console.WriteLine(indexOfR)
        '
        Console.ReadLine()
    End Sub

Sub Main()
        Dim message As String = "Hello World !"
        Console.WriteLine(message)
        '
        Dim startIndex As Integer = 6
        Dim length As Integer = 5
        Dim reversedMessage As String = GetReversed(message, startIndex, length)
        Console.WriteLine(reversedMessage)
        '
        startIndex = 4
        length = 9
        Dim character As Char = "l"c
        Dim indexOfL As Integer = GetIndexOf(character, message, startIndex, length)
        Console.WriteLine(indexOfL)
        '
        startIndex = 0
        length = 8
        character = "r"c
        Dim indexOfR As Integer = GetIndexOf(character, message, startIndex, length)
        Console.WriteLine(indexOfR)
        '
        Console.ReadLine()
    End Sub

    Function GetReversed(ByVal message As String, ByVal startIndex As Integer, ByVal length As Integer) As String
        Dim strReturn As String = ""
        For Each letter As String In message.Substring(startIndex, length)
            strReturn = letter & strReturn
        Next
        Return strReturn
    End Function

    Function GetIndexOf(ByVal character As Char, ByVal message As String, ByVal startIndex As Integer, ByVal length As Integer) As Integer
        Return message.Substring(0, startIndex).Length + message.Substring(startIndex, length).IndexOf(character)
    End Function

Function GetReversed(ByVal message As String, ByVal startIndex As Integer, ByVal length As Integer) As String
        Dim strReturn As String = ""
        For Each letter As String In message.Substring(startIndex, length)
            strReturn = letter & strReturn
        Next
        Return strReturn
    End Function
 
    Function GetIndexOf(ByVal character As Char, ByVal message As String, ByVal startIndex As Integer, ByVal length As Integer) As Integer
        Return message.Substring(0, startIndex).Length + message.Substring(startIndex, length).IndexOf(character)
    End Function