GeoCordinates

Public Function fgGetLatAndLongUsingAddress(sAddress As String) As String

'This function works best with a complete address including the zip code

Dim sResponseText As String, sReturn As String

sReturn = "none"

Dim objHttp As Object, sQuery As String

sQuery = "http://rpc.geocoder.us/service/csv?address=" & Replace(sAddress, " ", "+")

Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")

objHttp.Open "GET", sQuery, False

objHttp.send

sResponseText = objHttp.ResponseText

gsLastLatLongResponseText = sResponseText

Set objHttp = Nothing

If Len(sResponseText) > 0 Then

If InStr(sResponseText, "Bad Request") > 0 Then

'Do Nothing

ElseIf InStr(sResponseText, "couldn't find this address") > 0 Then

'Do Nothing

Else

If InStr(sResponseText, vbCrLf) > 0 Then

'We got more than one result

End If

If InStr(sResponseText, ",") > 0 Then

Dim aryInfo() As String

aryInfo = Split(sResponseText, ",")

sReturn = aryInfo(0) & "," & aryInfo(1)

End If

End If

End If

fgGetLatAndLongUsingAddress = sReturn

End Function