Is there a way to auto size a UserForm Frame ?

I have code that takes names off a worksheet and adds a bit to it, but
if the name is long.. the frame cuts it off.

Here is my code that captures the name from the sheet..

Private Sub UserForm_Initialize()
Frame2.Caption = Worksheets("Block").Cells(3, 2).Value + "'s Average"
End Sub

Thanks a bunch!

Joe Derr