telnet from visio objects

[tjbradford]

Hi all i want to do as per this old post but i'm stuck

http://www.tek-tips.com/viewthread.cfm?qid=1065876

i want to use the code eg

Sub macro1()
msgbox ipaddress
x = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler telnet:" & ipaddress , vbNormalFocus)
End Sub

i can't get the code to look at the object and pull the ip address from the custom fields section.

what am i missing in order to get the values from the object to show in my example msgbox

currently it shows up but is just blank