Dim ph As Phone
Dim myLAN As ServerSocket
If ph.GetDataState <> "CONNECTED" _
AND myLAN.GetMyIP = "127.0.0.1" Then
Msgbox("Ensure that your Device" & CRLF & _
"is Data Connected by Phone" & CRLF & _
"or is WiFi Connected." & CRLF & _
"And then try again.", _
"No Internet Connection")
Return
End If