Zaphod.

Dim intPosition as integer

Dim strNewBinary as string

intPosition = len(strBinary)

If len(strBinary) mod 4 <> 0 then

strNewBinary = left(strBinary, len(strBinary) mod 4) & "-"

End if

For intPosition = len(strBinary) mod 4 to len(strBinary)

strNewBinary = strNewBinary & mid(strBinary, intPosition,4) & "-"

Next

strBinary = left(strBinary,len(strBina