Imports System
Public Class Test
Private Sub main()
Dim s as string = ""
For i = 1 to 8
s &= "hi"
next
Console.writeline(s)
End sub
End Class