MapForums

Hi All

in regard to the code below I get error 13 type mismatch on line marked with ##, Any ideas why please.
Thanks in advance




Dim oOrgLoc As mappoint.Location
Dim oMap As mappoint.Map
Dim objApp As New mappoint.Application
Dim dblOrgLat As Double, dblOrgLon As Double
Dim pCode As String

If Len(Postcode_txt) = 0 Then Exit Sub
pCode = Trim$(Postcode_txt)
objApp.Visible = False
objApp.UserControl = False

Set oMap = objApp.ActiveMap
oMap.Altitude = 1
## Set oOrgLoc = oMap.FindAddressResults(, , , , pCode, geoCountryUnitedKingdom)
CalcPos oMap, oOrgLoc, dblOrgLat, dblOrgLon

Try this

Dim strCounty As String

strCountry = "UnitedKingdom"

Set oOrgLoc = oMap.FindAddressResults(, , , , pCode, strCounty)

Thanks for tip but same error.
What I am trying to do is get lat/lon from the postcode, any ideas?

The line should be

Set oOrgLoc = oMap.FindAddressResults(, , , , pCode, strCountry)(1)

Now it works, thanks..