Boa Noite.

Peguei este código da internet e ao executar aparece está mensagem de erro

Erro de Compilação

O código desse projeto deve ser atualizado para o uso em sistemas de 64 bits.
Analise e atualize as instruções Declare e em seguida, marque-as com o atributo PtrSafe

Este é o código

Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()

Dim nFator As Single
nFator = 0.75
Me.Width = GetSystemMetrics32(0) * nFator
Me.Height = GetSystemMetrics32(1) * nFator

End Sub

Estou colocando como fica no Excel.

Como posso resolver?