THis worked for me
Dim g As IGeometry = GeometryFactory.Default.CreateLineString(coord)
g = g.Buffer(distanceFORbuffer)
fs.Features.Add(g)
fs.SaveAs(sFilename, True)
Form1.myVenster.AddLayer(sFilename)