我将变量中的字符串以Open For Binary方式写入文件用记事本打开后怎么还是纯文本呀？

Question

如以下这个数据文件写入函数所示，它可以把m_astrStringKeyword()动态数组当中的全部字符串以Binary方式写入到一个文件中。但是当我用记事本打开这个文件后发现还是纯文本的内容，并不是我所期望的二进制乱码。请问是因为代码哪个地方写得不对吗？Private Function DataFileWrite(ByVal szFilePath As String) As Long
    Dim lngID                       As Long
    Dim intFileNumber      As Integer
    Dim strTextBuff            As String
    Dim abytFileAsBytes() As Byte
    
    For lngID = 0& To UBound(m_astrStringKeyword()) Step 1&
        strTextBuff = strTextBuff & m_astrStringKeyword(lngID) & vbCrLf
    Next
    abytFileAsBytes() = StrConv(strTextBuff, vbFromUnicode)
    intFileNumber = FreeFile()
    Open szFilePath For Binary Access Write Lock Write As #intFileNumber
    Put intFileNumber, 1&, abytFileAsBytes()
    Close #intFileNumber
    DataFileWrite = True
End Function

Answer 1

既然是为了不能直接查看，那就处理一下吧先转成BYTE（），然后按位异或（XOR），再写到文件。