Structure 個人
    Dim ヘソクリ As Integer
    Shared 財布 As Integer
End Structure

Dim 俺, 嫁 As 個人

ヘソクリはそれぞれ持ってるが、
生活費はひとつの財布から出す。