Dim time As DateTime = DateTime.Now
        Dim text As String = "1234567890qwertyuiopgthybvcc1234567890qwertyuiopgthybvcc"
        For index = 1 To 500
            text = StrReverse(text)
        Next

        Console.WriteLine(DateTime.Now.Subtract(time).TotalMilliseconds & " Miliseconds")

        time = DateTime.Now
        text = "1234567890qwertyuiopgthybvcc1234567890qwertyuiopgthybvcc"


        For index = 1 To 500
            text = nReverse(text)
        Next
        Console.WriteLine(DateTime.Now.Subtract(time).TotalMilliseconds & " Miliseconds")