Function vbLen(b)
	vbLen = LenB(b)
End Function
Function vbstr(b)
	vbstr = CStr(b)+chr(0)
End Function
Function convertString( bin )
	Dim iloop1
	Dim vLen
	Dim	vNum
	vLen = LenB(bin)
	Redim vNum(vLen-1)
	For iloop1=1 To vLen Step 1
		vNum(iloop1-1) = AscB( MidB( bin, iloop1, 1 ) )
	Next
	convertString = Join( vNum, "," )
End Function