Private Sub BinaryStringToStringTest()
    ' Test of the BinaryStringToString function.

    Dim strSamp As String
    strSamp = Chr$(3) + Chr$(12)

    Debug.Assert BinaryStringToString(BinaryStringFmString(strSamp, False, False), False, False) = strSamp
    Debug.Assert BinaryStringToString(BinaryStringFmString(strSamp, True, False), True, False) = strSamp
    Debug.Assert BinaryStringToString(BinaryStringFmString(strSamp, False, True), False, True) = strSamp
    Debug.Assert BinaryStringToString(BinaryStringFmString(strSamp, True, True), True, True) = strSamp
End Sub