请懂Java的高手把Java代码转换成VB代码（代码不超过15行）

Question

Java代码如下
        String strResult = "";
        String s;
        int nch;        char[] chrArrs = strMsg.toCharArray();        for (int i=0; i<chrArrs.length; i++) {
// XOR ascii value of character with random number
            nch = chrArrs[i] ^ randstr[i % 64];
s = Integer.toHexString(nch);
if (s.length() < 2) s = "0" + s;
strResult += s;
        }其中randstr是一个全局的64个元素的数组

Answer 1

Dim strResult As String, s As String
    strResult = ""
    Dim nch As Long
    
    Dim byteArrs() As Byte'VB中没有字符数组，chrArrs改成字节数组
    'VB中没有字符数组，原chrArrs改成字节数组byteArrs
    byteArrs = strMsg.toCharArray    Dim i As Long
    For i = 0 To UBound(byteArrs)
        nch = byteArrs(i) Xor randstr(i Mod 64)
        s = Hex(nch)
        If Len(s) < 2 Then s = "0" & s
        strResult = strResult & s
    Next

Answer 2

sorry，这一句不对
byteArrs = strMsg.toCharArray
应该是
byteArrs = StrConv(strMsg，vbFromUnicode)

Answer 3

viena(维也纳nn-实心木头人)，多谢啦!
但是StrConv这个function我好像没有，所以编译不过，请帮帮忙！cobrastudio(老汉我),呵呵，我也是试着改写过的，但是不成功，主要是因为对VB的这些函数不大了解，所以才求助的。

Answer 4

StrConv是VB里的函数，不可能没有的

Answer 5

sorry,是我搞错了，没问题的。StrConv是VB函数来的，我肯定是别的地方搞错了，现在改好了，谢谢各位，结贴了！