or
Private Sub UserForm_Initialize()
    With Application
     .WindowState = xlMaximized
      Zoom = Int(Me.Width / Me.Width * 100)
      Width = .Width
      Height = .Height
    End With
End Sub