thank you for the latest instructions
the result was a colon prefix and dots instead of spaces which I have been able to remove by replacing this
StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
StrTxt = ": " & Left(StrTxt, InStrRev(StrTxt, "."))

with this

StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
StrTxt = Left(StrTxt, InStrRev(StrTxt, "."))

but its still producing a dot as a suffix at the end of the caption
also the caption is showing bottom row while it should be position on the top
I cannot attach an image