Nessuno lo sa se non si legge il regolamento. In genere si fa prima di usare un forum.
Comunque, per chiudere, le semplici operazioni sono
Dim p As Long = 1234
Dim b0 As Byte = p.ToString().Length * 16
Dim b1 As Byte = p \ 65536
Dim m1 As Long = p Mod 65536
Dim b2 As Byte = m1 \ 256
Dim b3 As Byte = m1 Mod 256
e i valori saranno in b0 b1 b2 b3