With Me.fraImplementation
   .Left = Me.fraComponents.Left
   .Top = Me.fraComponents.Top
   .Width = Me.Width - (.Left * 2)
   .Height = Me.Height - .Top
End With
nCurLeft = Me.txtImplementation.Left
nCurTop = Me.txtImplementation.Top
Me.txtImplementation.Height = Me.fraImplementation.Height - (nCurTop * 2)
Me.txtImplementation.Width = Me.fraImplementation.Width - (nCurLeft * 2)

text here
        retains its spacing
                   see