在VB中编程求解水仙花数，可以采用穷举法，即遍历所有可能的数字组合，检查每个组合是否满足水仙花数的条件。以下是一个简单的VB程序示例，用于找出所有的三位水仙花数：
```vb
Module Module1
Sub Main()
Dim n As Integer = 3 ' 指定为三位数
Dim result As New List(Of Integer)() ' 用于存储结果的列表
' 遍历所有的三位数
For i As Integer = 10 ^ (n - 1) To 10 ^ n - 1
Dim sum As Integer = 0 ' 用于计算各位数字的立方和
Dim num As Integer = i
' 循环获取每一位数字
While num > 0
Dim digit As Integer = num Mod 10 ' 获取当前最低位的数字
sum += digit ^ n ' 将该数字的n次方加到sum上
num \= 10 ' 去掉当前最低位的数字
End While
' 如果sum等于原数i，则i是水仙花数
If sum = i Then
result.Add(i) ' 将水仙花数添加到结果列表中
End If
Next
' 输出所有找到的水仙花数
For Each num As Integer In result
Console.WriteLine(num)
Next
End Sub
End Module
```
这段代码首先定义了要查找的水仙花数的位数（在这个例子中是三位数），然后创建了一个列表来存储找到的水仙花数。接着，使用一个循环遍历所有的三位数，并通过取模和整除操作来分别获取每一位数字，计算它们的立方和，并与原数进行比较。如果相等，则将该数添加到结果列表中。最后，循环结束后，输出所有找到的水仙花数。
你可以将这段代码复制到VB的IDE中运行，或者保存为.vb文件后使用VB编译器运行。如果你想要查找其他位数的水仙花数，只需修改`n`的值即可。例如，要查找四位数的水仙花数，可以将`n`设置为4，并相应地调整循环的范围和条件。