Private Sub Form_Load()

    Set GeoIP = CreateObject("GeoIPCOM.GeoIP")
    GeoIP.loadDataFile ("c:/Program Files/GeoIP/GeoIPDemo.dat")
    country_code = GeoIP.country_code_by_name("yahoo.com")
    country_name = GeoIP.country_name_by_name("yahoo.com")
    MsgBox country_name, vbInformation, "Hello World App"

End Sub