vb.net loop + sliding text

module module1
sub main()
dim i as integer = 0
do until i = 100
slidingtext("number of reboots = " & 100 - 1)
console.readkey()
loop
end sub
Public Function slidingtext(ByVal text As String)
        For i = 0 To text.Length - 1
            Console.Write(text.Substring(i, 1))
            Threading.Thread.Sleep(45)
        Next
        Return True
    End Function
end module