hi thanks for the reply
i have resolved the issue as was making things more awkerd for myself i changed
sDistance = Mid(sDistance, lTopicstart + 6, lTopicend - lTopicstart - 6)
to
sDistance = Mid(sDistance, lTopicstart + 6, lTopicend - lTopicstart - 8)
this removes the mi at the end of the milage/distance result and then allows me to put it into numberd field that will rounfd it up if returns a a result such as 5.5 to 6
all i needed was a fresh cup of coffee
and have to say agin love this code as has multied of uses for me