The problem of realizing assembly automation with VBA

Hello, everyone. I want to use VB to realize the automatic assembly of two parts in V6. This code is for publishing. If you don't want to use publishing, you can directly select two faces of two parts as assembly constraints. How do you change it here
This should be his permanent name, but I don't know how to write it