finish writePostingVB