学习vba（高阶）有志同道合的吗，一同研究？

由于需要打开表格，后续发展到看代码
这是vba写的，经过一段时间的研究，知道了一些内容，但是还是有不懂的地方

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If

  Dim GetData As String * 5
  Open FileName For Binary As #1
  Dim CMGs As Long
  Dim DPBo As Long
  For i = 1 To LOF(1)
      Get #1, i, GetData
      If GetData = "CMG=""" Then CMGs = i
      If GetData = "[Host" Then DPBo = i - 2: Exit For
  Next
  If CMGs = 0 Then
     MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
     Exit Function
  End If
  If Protect = False Then
     Dim St As String * 2
     Dim s20 As String * 1
     '取得一个0D0A十六进制字串
     Get #1, CMGs - 2, St
     '取得一个20十六制字串
     Get #1, DPBo + 16, s20
     '替换加密部份机码
     For i = CMGs To DPBo Step 2
         Put #1, i, St
     Next
     '加入不配对符号
     If (DPBo - CMGs) Mod 2 <> 0 Then
        Put #1, DPBo + 1, s20
     End If
     MsgBox "文件解密成功......", 32, "提示"
  Else
     Dim MMs As String * 5
     MMs = "DPB="""
     Put #1, CMGs, MMs
     MsgBox "对文件特殊加密成功......", 32, "提示"
  End If
  Close #1

End Function

程序是要把文件以二进制的方式打开，把文件的第一个字节读入变量GetData
然后进行跟换对应字节数
问题来了：第13行的CMG=""是什么意思？
我的理解是以二进制的形式打开文件，把文件的第一个字节读入getdata，我也测试了一些，getdata的值是邢唷??
没有类似CMG=""的呀？
有人能看懂的吗？
而且cmg，[Host这些，他们是怎么知道的？

还有后面这些，是怎么想到的，需要看底层数据?
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If

有人知道吗？给点提示