[pax]

Да что же тут такого сложного

Public Class A
   Public B(100) As Long
End Class

'создание экземпляра класса:
Dim _a As A = New A