Tedd be a Form eseménykezelőjébe ezt:

Private Sub UserForm_Activate()
  UserForm1.Width = Application.Width
  UserForm1.Height = Application.Height
End Sub