Change userform label height without changing label width

So just found out autosize changes the width, which I don't want. I've got a label nested within a frame that allows the individual to view the body of the email they are currently working with and then hide it when the no longer require it.

If AccessChange.Width < 700 Then
    AccessChange.EmailBody.Caption = DICEmailBody.Item(i)
    AccessChange.EmailBody.Height = PMCode '****  Pure Magical Coding by someone who knows more than I *****
    AccessChange.EmailFrame.ScrollHeight = AccessChange.EmailBody.Height
    AccessChange.Width = 875
Else
    AccessChange.Width = 565
End If

I would like to make the AccessChange.EmailBody.Height dynamic without changing the width (PMCode).


Thanks in advance,


Janos