Private Function ReadFile(ByRef a As String) As String
成都创新互联公司是一家集网站建设,铜川企业网站建设,铜川品牌网站建设,网站定制,铜川网站建设报价,网络营销,网络优化,铜川网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
a = "bian"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "yuanlai"
ReadFile(a)
''想要的结果就是在这里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以，不知道你“ByRef a As b”的b是什么东西
在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。
添加引用好像只是把引用的文件目录链接过来，如果你要发到别人那里也能用，就要放在你自己的工程文件包里。
