VB get external IP address

Private Function GetExternalIp() As String
    Try
        Dim ExternalIP As String
        ExternalIP = (New WebClient()).DownloadString("http://checkip.dyndns.org/")
        ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")) _
                     .Matches(ExternalIP)(0).ToString()
        Return ExternalIP
    Catch
        Return Nothing
    End Try
End Function

Similar codes

5 votes229 views1 answer
Excel vba high word from Long Integer
VBA
0 vote222 views1 answer
Vb window.minimize
VBA
0 vote257 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote226 views1 answer
How to use VBA to add new record in MS Access?
VBA
4 votes238 views2 answers
Vba create folder if not exist
VBA
0 vote224 views1 answer
Vbnet get file name from path
VBA
1 vote237 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
0 vote227 views1 answer
Excel vba join variant array
VBA
0 vote272 views1 answer
Vba foreach 2d array
VBA
8 votes389 views1 answer
Excel vba make a short integer from two bytes
VBA