Tu dois prendre en compte les marges propres aux objets. Voici un exemple qui te donne un cadre de la taille de l'UF -1 pixel pour qu'on voit les bords droit et bas.
Private Sub UserForm_Activate()
Dim margeX As Byte, margeY As Byte
margeX = 12: margeY = 29
UserForm1.Width = 600
UserForm1.Height = 225
Frame1.Left = 0
Frame1.Top = 0
Frame1.Width = UserForm1.Width - margeX
Frame1.Height = UserForm1.Height - margeY
End Sub