VB算法示例，它用于计算一个数的阶乘（Factorial）

```vbnet
Module Module1
    Sub Main()
        Console.WriteLine("请输入一个正整数：")
        Dim number As Integer = Convert.ToInt32(Console.ReadLine())
        Dim factorial As Integer = CalculateFactorial(number)
        Console.WriteLine(number & " 的阶乘是：" & factorial)
        Console.ReadLine()
    End Sub

    Function CalculateFactorial(ByVal num As Integer) As Integer
        If num = 0 Or num = 1 Then
            Return 1
        Else
            Return num * CalculateFactorial(num - 1)
        End If
    End Function
End Module
```
这个示例代码首先读取用户输入的一个正整数，然后调用`CalculateFactorial`函数来计算这个数的阶乘。`CalculateFactorial`函数是一个递归函数，它会一直调用自身，直到输入的数为0或1为止。每次调用时，它都会将当前的数乘以调用`CalculateFactorial`函数时传入的数减1的结果。最终，它会返回计算得到的阶乘值。

请注意，这只是一个简单的示例，用于说明如何在VB中编写算法。实际上，VB可以用于实现更复杂的算法和应用程序。如果你有具体的需求或问题，请提供更多详细信息，我会尽量帮助你。