Dim obj as SuBClassでいいのでは?