LocalIP
The LocalIP function returns the local host system IP address in the form of a string, such as 11.0.0.127. This property is read-only and is unavailable at design time.
Syntax: sValue = oSocket.LocalIP
sValue (String) the IP address of the local host
Group: Socket Object
Example:
Dim WithEvents oSocket As Socket ' module level Dim
Dim sIP As String
Set oSocket = New Socket
SIP = oSocket.LocalIP