关于代码共享得问题

[xfekin]

Dim reader As New streamreader(server.mappath("XXX.HTM"),encoding.default)
strBody=reader.readtoend()
reader.close()

这段代码有多个类需要调用，如果每调用一次就重新写上面得代码显然是繁琐得，请问用什么办法可以让代码只写一次，其他得类就可以按参数调用？

class a
调用。。。
end class

class b
调用..
end class

class c
调用。
end class

[wacle]

新建一个类，把上面代码放到一个公用函数里面，带返回值datareader类型。
其他类可以定义这个类的对象后直接调用这个方法，也可以直接继承这个类，不过多数人选前者

[xfekin]

您能不能帮忙写出来？我试着写过，老是出错，希望可以看看别人是怎么写得 。