Write a script in Visual Basic to backtrace an IP address.

Imports System.Net
Imports System.IO
Imports Newtonsoft.Json.Linq
 
Private Sub btnBacktrace_Click(sender As Object, e As EventArgs) Handles btnBacktrace.Click
    Dim ipAddress As String = txtIPAddress.Text.Trim()
 
    If Not String.IsNullOrEmpty(ipAddress) Then
        Dim apiKey As String = "YOUR_IPSTACK_API_KEY"
        Dim apiUrl As String = $"http://api.ipstack.com/{ipAddress}?access_key={apiKey}"
 
        Try
            Using client As New WebClient()
                Dim response As String = client.DownloadString(apiUrl)
 
                Dim json As JObject = JObject.Parse(response)
                Dim country As String = json("country_name").ToString()
                Dim city As String = json("city").ToString()
                Dim region As String = json("region_name").ToString()
                Dim latitude As String = json("latitude").ToString()
                Dim longitude As String = json("longitude").ToString()
 
                Dim result As String = $"Country: {country}{vbCrLf}City: {city}{vbCrLf}Region: {region}{vbCrLf}Latitude: {latitude}{vbCrLf}Longitude: {longitude}"
                rtbResult.Text = result
            End Using
        Catch ex As WebException
            rtbResult.Text = "Error: Unable to fetch data. Please check your internet connection or try again later."
        Catch ex As Exception
            rtbResult.Text = "An unexpected error occurred. Please try again later."
        End Try
    Else
        rtbResult.Text = "Please enter a valid IP address."
    End If
End Sub