Do
 Dim e$$$byd6 As $ArrayType$$$BY01D
 DirectCast(AddressOf e$$$byd6, SByte*) = (((((num10 * 2) + num9) + 8) * 2) + str2.Chars(num2))
 DirectCast((AddressOf e$$$byd6 + 1), SByte*) = 0
 Dim str11 As New String(DirectCast(AddressOf e$$$byd6, SByte*))
 If ((str11.Chars(0) < "A"c) OrElse (str11.Chars(0) > "Z"c)) Then
 str11 = (str11.Chars(0) Mod ChrW(10)).ToString
 End If
 str = (str & str11)
 num2 += 1
 Loop While (num2 < str2.Length)
那位大哥指点一下这段代码的意思？本人小白，略懂一点点VB6,转换到VB6的代码怎么写!谢谢！