Sorry, my mistake
i ask about B4R
i found this way:
B4X:
Dim port As UInt = BC.StringFromBytes("12345")
Log(port)
Dim IP(4) As Byte
Dim i As Byte = 0
For Each t() As Byte In BC.Split("192.168.1.1",".")
IP(i)=BC.StringFromBytes(t)
'IP(i) = BC.g
Log(IP(i))
i = i+1
Next