Private Function ReadFile(ByRef a As String) As String
成都创新互联从2013年开始，公司以成都网站制作、成都做网站、系统开发、网络推广、文化传媒、企业宣传、平面广告设计等为主要业务，适用行业近百种。服务企业客户1000多家，涉及国内多个省份客户。拥有多年网站建设开发经验。为企业提供专业的网站建设、创意设计、宣传推广等服务。 通过专业的设计、独特的风格，为不同客户提供各种风格的特色服务。
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是什么东西
当然有啊，
引用类型的变量就是类的实例化对象
VB点虐 值类型包括14种基本数据类型(除String)、结构和枚举，其他都是引用类型
引用一个按钮对象
Dim a As Button = Button1 '假设窗体中有Button1这个按钮控件
引用一个自定义类的对象
Public Class Class1
End Class
Dim b As New Class1
上面的a和b都是引用型的变量。
字符串也是引用型的变量
它是基础数据类型中唯一的引用型数据类型。
Dim s As String = "字符串也是引用类型！"
满意请采纳，谢谢。
以class2为例，如果你只需要一个class2实例，那么把它在class1成员中声明为共享成员即可。
Shared c2 As New Class2()
然后调用它的函数，
c2.func()
如果class2的这个函数不依赖于class2实例，那么直接将这个函数用Shared声明，
Public Shared Function func() As xxx
'xxxxx
End Function
然后在class1中引入，
Imports class2
直接调用即可。
func()
我想第二种更符合你的情况。
1.对象变量与对象本身是不同的，对象变量代表了对象真实数据在内存中的地址.
打个比方，“对象变量”就象你家的地址，“对象本身”就象你家。
你不能说你家的地址(xx路xx号xx房)就是你家，但是可以通过这个地址而找到你家。
2.传值的参数本身是被复制一份的，但这并不意味着它所代表的对象也被复制一份.
有如下一个函数:
Public
Function
Do_delete(ByVal
ps_usr_id
As
String)
As
Boolean
你在调用时可能这样调用:
dim
strID
as
string
strID
=
"kknd001"
if
Do_delete(strID)
then.....
当程序执行到Do_delete函数体里面时ps_usr_id变量其实是按照StrID的值而复制的一个变量。
