convert these commands from visual basic 6 to basic4android

[diresc]

convert these commands from visual basic 6 to basic4android
problem for= len-mid-val-chr-&h


call function
Hex2AsciiSocket (li1.Text)


Function Hex2AsciiSocket(s_input As String) ' Input: "00 01 AA FF
Dim I As Byte
Dim HEX As String
Dim OUT As String
Dim znak As Byte
HEX = s_input
For I = 1 To (Len(s_input) + 1) \ 3
znak = Val("&H" & Mid(HEX, 1, 2))
HEX = Mid(HEX, 4, Len(HEX))
OUT = OUT & Chr(znak)
Next I
SOCK.SendData (OUT)'winsock
Hex2AsciiSocket = Len(OUT)
End Function

thank you very much

 

[Erel]

Have you seen this tutorial: http://www.b4x.com/forum/basic4android-getting-started-tutorials/9347-converting-vb6-b4a.html

 

[DOM85]

Sub Process_Globals
Dim Conv As ByteConverter
.
.
End Sub

Function Hex2AsciiSocket(s_input As String)
.
.
For I = 1 To (s_input.length-1) Step 3
znak =Conv.HexToBytes(s_input.SubString2(I-1,I+1))
Out=Out & Conv.StringFromBytes(znak,"ASCII")
Next
.
.

 

[margret]

You can also look at these

http://www.b4x.com/forum/basic4android-getting-started-tutorials/10365-string-functions.html