Function String2Binary(str) Dim intCount, bin For intCount = 1 To Len(str) bin = bin & ChrB(Asc(Mid(str,intCount,1))) Next String2Binary = bin End Function