Imports System.Text
Module Module1
Sub Main()
Dim array() As Byte = Encoding.ASCII.GetBytes(New String("W"c, 15))
For Each ch As Byte In array
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87
' 87