Private myBuffer(iBufferSize-1) as Byte

Public Class MeineKlasse
Private myBuff() as Byte
Private myBufferSize as Integer=32767
 
Public Sub New()
Dim bBuff(myBufferSize - 1) As Byte
myBuffer = bBuff.Clone
bBuff = Nothing
End Sub
 
' ...
End Class