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

6 votes178 views1 answer
Excel vba check if a string only contains alpha characters
VBA
5 votes195 views1 answer
Excel-vba get integer high byte
VBA
0 vote232 views1 answer
Vba excel do not recalculate before save
VBA
0 vote176 views1 answer
Vba nested dictionary
VBA
0 vote191 views1 answer
.net crash app
VBA
0 vote177 views1 answer
Excel vba cell on change
VBA
0 vote180 views1 answer
Excel vba first working day month
VBA
5 votes199 views1 answer
Vba low byte from INTEGER
VBA
0 vote175 views1 answer
Vbscript abs
VBA
0 vote184 views1 answer
Vba sort multiple columns
VBA