ivate Function GetCaption(ByVal sCaption As String) As String
Dim iNextPos As Long
Dim iPos As Long
Dim sOut As String
    If (Len(sCaption) &gt; 32) Then sCaption = left$(sCaption, 32) &amp; "..."
    iPos = 1
    iNextPos = InStr(sCaption, "&amp;")
    Do While iNextPos &lt;&gt; 0
        sOut = sOut &amp; Mid$(sCaption, iPos, iNextPos - iPos)
        iPos = iNextPos + 1
        iNextPos = InStr(iPos, sCaption, "&amp;")
    Loop
    If iNextPos = 0 Then iNextPos = 1
    sOut = sOut &amp; Mid$(sCaption, iN