             ' data and show that:
                  m_cClip.GetBinaryData lID, bData()
                  For l = LBound(bData) To UBound(bData)
                      sHex = Hex$(bData(l))
                      If (Len(sHex) &lt; 2) Then sHex = "0" &amp; sHex
                      sOut = sOut &amp; sHex
                      If ((l + 1) Mod 8) = 0 Then
                          sOut = sOut &amp; vbCrLf
                      Else
                          sOut = sOut &amp; "  "
                      End If
 