I am still learning the VB language. I am more of a designer than programmer... How does this look:
Code:
Private Sub txtEnclosureAttached_Update()
Dim Rng As Range
Set Rng = ActiveDocument.Bookmarks(bmkEnclosureAttached).Range
With Rng
.Text = Replace(Enclosures.Text, vbCr, ", ")
Application.ScreenRefresh
End With
ActiveDocument.Bookmarks.Add bmkEnclosureAttached, Rng
End Sub