Fit screen resolution to userform

Hello everyone
I have a code that is put in the userform module and it was working in the past
I tried to use it but got an error "Invalid procedure call or argument" error '5'
Here's the code

Private Sub UserForm_Initialize()
    Dim Zo%
    Dim ZH#, ZW#, AL#, AT#, AH#, AW#
    Dim FH!, FW!
    
    AH = Application.Height
    AW = Application.Width
    AL = Application.Left
    AT = Application.Top
    FH = Height
    FW = Width
    ZH = AH - FH
    ZW = AW - FW
    Zo = Zoom
    
    If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
    Move AL, AT, AW, AH
    If Zo <> 100 Then Zoom = Zo
End Sub

I'm using Windows 10 64 Bit - Office 2013 64 Bit

Any idea of that error