sSelection = Selection iStart = Selection.Range.Start iEnd = Selection.Range.End iLastChar = Asc(Mid(sSelection, (iEnd - iStart), 1)) If iLastChar = 32 Or iLastChar = 116 Then iEnd = iEnd - 1 sSelection = Left(sSelection, (iEnd - iStart) + 1) End If
Example 2: Pass a valid street address to the web service.