[Only3]

Cleaned it up a little:

Code

Private Function FetchFlag(ip As String) As Image
    Using wc As New WebClient
      Dim countryCode As String = wc.DownloadString("http://ip-api.com/csv/" & ip).Split(","c)(2).ToLower()
      Dim ms As New MemoryStream(wc.DownloadData(String.Format("https://geoiptool.com/static/img/flags/{0}.gif", countryCode)))

      Return Image.FromStream(ms)
    End Using
End Function

😊 Stream Dispose 😧