在Visual Basic（VB）中，编写一个函数（Function）的基本语法如下：
```vb
[private | public] [static] Function 函数名（[形参列表]） [as 数据类型]
' 语句列
[函数名] = 表达式
Exit Function
' 更多语句列
End Function
```
`[private | public]`： 指定函数的访问修饰符。`private` 表示函数仅在当前模块内可见，`public` 表示函数在整个应用程序中可见。
`[static]`： 指定函数是否为静态函数。静态函数在第一次调用时初始化，且只占用一个内存空间，即使多次调用也不会重新初始化。
`Function 函数名（[形参列表]）`： 定义函数名和参数列表。参数列表可以为空，表示函数没有参数。
`[as 数据类型]`： 指定函数的返回类型。如果省略，则默认为 `Variant` 类型。
函数体内部可以包含语句，用于执行计算或操作，并可以返回一个值。
`Exit Function`： 用于提前退出函数，并返回指定的值（如果指定了返回值）。
```vb
Public Function AddNumbers（ByVal num1 As Integer, ByVal num2 As Integer） As Integer
Dim sum As Integer
sum = num1 + num2
AddNumbers = sum
End Function
```
在这个示例中：
`Public` 关键字表示该函数在整个应用程序中可见。
`Function AddNumbers` 定义了一个名为 `AddNumbers` 的函数，它接受两个整数参数 `num1` 和 `num2`，并返回一个整数。
`ByVal` 关键字表示参数是按值传递的，这意味着在函数内部对参数的修改不会影响原始变量。
`Dim sum As Integer` 声明了一个整数变量 `sum`，用于存储两个参数的和。
`AddNumbers = sum` 将计算结果赋值给函数名，从而返回该值。
你可以根据具体需求修改函数名、参数列表、返回类型以及函数体内的语句。
