Try this:

Public Class clsMyProcedure

Dim _us as String, _id as Integer

Public Sub New (us as String, id as Integer)


_us = us