Visual Basic ip adresi öğrenme

Private Function GetIP() As String
        Dim wc As New WebClient()
        Dim strIP As String = wc.DownloadString("http://checkip.dyndns.org")
        strIP = (New Regex("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")).Match(strIP).Value
        wc.Dispose()
        Return strIP
    End Function

Buton click olayına şu kodları girelim:

 Label1.Text = (GetIP())