Sub Process_Globals
...
Public rdcLink As String
...
End Sub
Sub Activity_Create(FirstTime As Boolean)
Public server As ServerSocket ' Needs the Network library
server.Initialize(8888, "")
Dim myIP As String = server.GetMyIP
server.Close
Dim subnet As String = myIP.SubString2(0, myIP.LastIndexOf(".") + 1)
rdcLink = $"http://${subnet}222:17178/rdc"$
...
...
End Sub