Dim mynetwork As ServerSocket
Dim DeviceIpAddress As String
DeviceIpAddress=mynetwork.GetMyIP 'GetMyIp returns a string-value.
'Let us say - 192.168.1.4
'now split ip-address in 4 octets
Dim myOctets As List
myOctets.Initialize
myOctets=Regex.Split(".",DeviceIpAddress)
For x = 0 To myOctets.Size -1
Msgbox(myOctets.Get(x),"")
Next