update 32bit vba to 64bit

Hi
office had to be reinstalled due to problems and the following code used to run a userform minimizing button has thrown an error stating code has to updated to 64bit

Is this possible??

Private Declare Function FindWindowA Lib "USER32" _ 
(ByVal lpClassName As String, _ 
ByVal lpWindowName As String) As Long 
 
Private Declare Function GetWindowLongA Lib "USER32" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long) As Long 
 
Private Declare Function SetWindowLongA Lib "USER32" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 
 
Option Explicit 
 
Sub FormatUserForm(UserFormCaption As String) 
     
    Dim hWnd            As Long 
    Dim exLong          As Long 
     
    hWnd = FindWindowA(vbNullString, UserFormCaption) 
    exLong = GetWindowLongA(hWnd, -16) 
    If (exLong And &H20000) = 0 Then 
        SetWindowLongA hWnd, -16, exLong Or &H20000 
    Else 
    End If 
     
End Sub

any pointers appreciated