Imports System
Public Class Test
Public Shared Sub Main()
Dim data(0 To 30 - 1) As Byte
Dim ascii(0 To 30 - 1) As Byte
Console.WriteLine(data(28))
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gZGF0YSgwIFRvIDMwIC0gMSkgQXMgQnl0ZQpEaW0gYXNjaWkoMCBUbyAzMCAtIDEpIEFzIEJ5dGUKCgoKCgoKQ29uc29sZS5Xcml0ZUxpbmUoZGF0YSgyOCkpCglFbmQgU3ViCkVuZCBDbGFzcw==