首先新建一个类库项目，把你的代码以类（需要实例）或模块（静态）的形式封装好，生成过后在输出目录（bin/debug或bin/release）里面会有个项目名.dll文件，就是它了。
创新互联公司服务项目包括黄埔网站建设、黄埔网站制作、黄埔网页制作以及黄埔网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，黄埔网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到黄埔省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
在调用方项目里，右键解决方案资源管理器中的引用，添加引用，浏览到你的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，否则外面无法访问。
你该贴一下代码的。
是不等于号
你说的这个用户自定义的方法有可能是function修饰的有返回值的方法
他有可能返回数字，字符串，boolean等等
这个时候就可以用变量去跟方法返回值进行比较
比如 方法返回1
那么
Dim a as integer =2
Public Function returnb () as Integer
return 1
End function
If a returnb Then
Console.write("不相等")
End If
很简单，在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
