首先新建一个类库项目，把你的代码以类（需要实例）或模块（静态）的形式封装好，生成过后在输出目录（bin/debug或bin/release）里面会有个项目名.dll文件，就是它了。
成都创新互联主营靖西网站建设的网络公司,主营网站建设方案,app软件开发,靖西h5成都小程序开发搭建,靖西网站营销推广欢迎靖西等地区企业咨询
在调用方项目里，右键解决方案资源管理器中的引用，添加引用，浏览到你的dll文件。接着到你的代码中，代码最上面写：
Imports 项目名
然后调用这个类或模块即可。
根据你的情况，可能用模块封装更适合一些。比如：
Public Module MatrixSolve
Public Function Solve(para1 As Double,para2 As Double) As Double
'一些代码
Return result
End Function
End Module
调用起来只要这样即可：
Dim num As Double = MatrixSolve.Solve(x,y)
注意模块和函数的访问级别都用Public，否则外面无法访问。
vb自定义函数可选参数的设置方法及注意事项：
1、可选参数可用Optional关键字标示；
2、可选参数需赋予默认值；
3、如未赋予默认值，那么需要在函数里可以通过ismissing(b)来判断该参数时候有值传入 ；
4、Optional参数(可选参数)必须放在后面，即先必选参数再可选参数。
范例如下：
function multi(a as integer,b as integer,optional third)
rem 定义multi函数，参数a、b为整形，参数third可可选参数
dim n as integer
n = a * b
if not ismissing (third) then '判断可选参数third是否有值传入
n = n * third
end if
multi = n
end function
private sub command1_click()
dim a as integer,b as integer
dim x as integer
a = 2 : b = 3
x = multi (a , b , 2)
print x
end sub
在vb.net中定义staticextern函数：用static声明的局部变量。static是C++中常用的修饰符，它被用来控制变量的存贮方式和可见性。extern，C是使C++能够调用C写作的库文件的一个手段。
refresh是vb的关键词，你最好不要用这个名字作为你自定义函数的名字，当然，VB也允许你用Overrides关键词重载这个方法。
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function