Maybe, local network. Using same network, I get IPv4 fromThat is an IPv6 address! Are you on a network that supports IPv6?
Sub Activity_Create(FirstTime As Boolean)
Dim s As ServerSocket
s.Initialize(0, "")
Msgbox(s.GetMyIP, "")
End Sub