Office 2013 32 bit (Microsoft advises against updating to 64 bit).
Below worked with Solidworks 2015 sp4.0
Office 2013 32 bit
Dim myPDMConn As New PDMWConnection Dim myPDMWSO As PDMWSearchOptions Dim myPDMWSRs As PDMWSearchResults Dim myPDMWSR As PDMWSearchResult Dim CurRow As Long Dim ProjectName As String ' Project name store.
ProjectName = InputBox("Enter Project Name") ' Enter project name through message box. If ProjectName = "" Then GoTo EndMacro
'>>>>>>>>> fails here in 2016
myPDMConn.Login "pdmwadmin", "pdmwadmin", "localhost" ' Login details, enter these here to save having to enter them everytime, set new user with read only!