How to convert code VB6 to b4a?

This is a EnDeCryption module which I writed in vb6, now I want to convert it to b4a code, I try to do it ,but there are many errors.

Old VB6 code:

Private SubKey() As Byte
Private m_Key() As Byte
Private m_KeyValue As String
Private m_KeyLen As Long

'Generate SubKey
Private Sub GenKey(ByVal MainKey As Long, ByVal Times As Integer)
ReDim SubKey(Times, 4) As Byte
Dim i As Integer, j As Integer
SubKey(0, 0) = MainKey And &HFF&
SubKey(0, 1) = (MainKey And &HFF00&) \ &H100&...

How to convert code VB6 to b4a?

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/2by5hKP
via IFTTT