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的代码怎么写!谢谢！