在研究字符串加解密 除了 StrConv 命令有没有别的方法 ,因为这个命令要解密的时候,转换成字节数组最大下标比实际小 2 个下标
比如

   
    Dim ByteArray() As Byte
    ByteArray() = StrConv(Text, vbFromUnicode)
    Debug.Print "字符串解密: " & UBound(ByteArray)

    Filenr = FreeFile
    Open SourceFile For Binary As #Filenr
    ReDim ByteArray(0 To LOF(Filenr) - 1)
    Get #Filenr, , ByteArray()
    Close #Filenr
    Debug.Print "文件解密: " & UBound(ByteArray)

一样是字节数组为什么字符串的会比较文件转成字节的下标小

strconv是最方便好用的转换函数了，它会获取实际的字符串占用的字节数（0-127一个字节，汉字的两个字节），字符串存储为文件后如果是使用文本方式则会自动在文件末尾补上换行符（&H0D &H0A），自然会多两个字节，如果用binary方式写字符串，则会和strconv的字节数相同。