Ola galera, alguem aqui pode me ajudar a escrever essa linha em vb6 ?
        For b = 0 To 5
            magic_number &= If((current_offset + b) > 16, (current_offset + b).ToString([Ô]x[Ô]), [Ô]0[Ô] & (current_offset + b).ToString([Ô]x[Ô]))
        Next b

não testei, mas seria algo do tipo

magic_number = magic_number & iif((current_offset + b) > 16, Hex(current_offset + b), [Ô]0[Ô] & Hex(current_offset + b))

No VB6 não exite &=, mas é o mesmo que fazer variavel =  variavel & qualquer coisa

Também não existe este if, mas ele tem funcionalidade muito parecida do iif que neste caso me parece poder ser usada sem problemas

E por ultimo o ToString([Ô]x[Ô]) neste caso tem basicamente o mesmo resultado de usar a função Hex do VB6