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.