Dim mev1 As String
Dim mfrom As String
Dim mto As String
mfrom = "saddr= <Address>" ' from Address (full or part address like 1600 Pennsylvania Ave NW, Washington, DC?)
mto = "daddr= <Address> " ' to address
mev1 = "C:\Program Files\internet explorer\iexplore " & "[URL unfurl="true"]http://maps.google.com/maps?"[/URL] & mfrom & "&" & mto
Call Shell(mev1, vbMaximizedFocus)