Hi Angelene,
Here is the approach that will do the job for you.
First you need to get hold of the road segments by querying by the road name and then loop through all the segments one by one. When you have the segment inside the loop, you can create a buffer around it using Buffer function as in the snippet.
Dim o_line, o_polygon As Object
o_line = line_seg.obj
o_polygon = Buffer( o_line, 10, 5, "m")
Function Description:
Buffer( inputobject, resolution, width, unit_name )
inputobject is an object expression.
resolution is a SmallInt value representing the number of nodes per circle at each corner.
width is a float value representing the radius of the buffer; if width is negative, and if inputobject is a closed object, the object returned represents an object smaller than the original object. If the width is negative, and the object is a linear object (line, polyline, arc) or a point, then the absolute value of width is used to produce a positive buffer.
unit_name is the name of the distance unit (e.g., "mi" for miles, "km" for kilometers) used by width.
Please let me know if this helps you out or you need any further assistance.
Thanks,
Md. Aslam Khan