在VB编程中，可以通过以下步骤找出完数：
定义一个函数来判断一个数是否是完数
函数的参数为一个整数。
函数内部逻辑是：遍历从1到该数减1的所有整数，如果该数能被其中某个整数整除，则将该整数累加到sum中。
最后，如果sum等于该数，则返回True，否则返回False。
在主程序中调用该函数
传入要判断的数。
根据函数返回的结果，输出该数是否是完数。
```vb
Module Module1
Function IsPerfectNumber（num As Integer） As Boolean
Dim sum As Integer = 0
For i As Integer = 1 To num - 1
If num Mod i = 0 Then
sum += i
End If
Next
If sum = num Then
Return True
Else
Return False
End If
End Function
Sub Main（）
Dim num As Integer = 28
If IsPerfectNumber（num） Then
Console.WriteLine（num & "是完数"）
Else
Console.WriteLine（num & "不是完数"）
End If
End Sub
End Module
```
在这个示例中，我们定义了一个名为`IsPerfectNumber`的函数来判断一个数是否是完数。然后在`Main`子程序中调用这个函数，并传入要判断的数28。根据函数的返回结果，输出28是否是完数。
运行这个程序，输出结果为：
```
28是完数
```
这个程序可以用于判断任意一个整数是否是完数。你可以修改`num`变量的值来测试其他数字。