在VB（Visual Basic）程序中，分离数字的各个位数可以通过数学计算和字符串操作来实现。以下是一个示例代码，展示了如何分离一个整数的个位、十位和百位数字，并通过消息框（MsgBox）输出结果：
```vb
Dim num As Integer ' 定义一个整数变量
Dim ones As Integer ' 个位数字
Dim tens As Integer ' 十位数字
Dim hundreds As Integer ' 百位数字
num = 123 ' 将要分离的数字赋值给变量num
' 使用 Mod 运算符获取个位数字
ones = num Mod 10
' 使用整数除法和 Mod 运算符获取十位数字
tens = (num \ 10) Mod 10
' 使用整数除法获取百位数字
hundreds = num \ 100
' 输出结果
MsgBox "个位数字为:" & ones & vbCrLf & "十位数字为:" & tens & vbCrLf & "百位数字为:" & hundreds
```
在这个示例中，我们首先定义了一个整数变量 `num`，并将要分离的数字赋值给它。然后，我们使用 `Mod` 运算符分别获取个位、十位和百位数字，并使用 `MsgBox` 函数输出结果。
如果你需要分离的是字符串中的数字，可以使用 `Split` 函数进行字符串分割。以下是一个示例代码，展示了如何分离字符串中的数字：
```vb
Dim inputStr As String ' 输入的字符串
Dim numbers() As String ' 存储分离出的数字的数组
Dim i As Integer
inputStr = "12345" ' 示例字符串
' 使用 Split 函数以空格为分隔符分割字符串
numbers = Split(inputStr, " ")
' 输出分离出的数字
For i = LBound(numbers) To UBound(numbers)
MsgBox "数字 " & i & " 是: " & numbers(i)
Next i
```
在这个示例中，我们首先定义了一个字符串变量 `inputStr`，并将要分离的数字字符串赋值给它。然后，我们使用 `Split` 函数以空格为分隔符将字符串分割成多个部分，并将这些部分存储在数组 `numbers` 中。最后，我们使用 `For` 循环遍历数组并输出每个数字。
根据你的具体需求，可以选择使用数学计算和字符串操作的方法来分离数字的各个位数，或者使用 `Split` 函数来处理字符串中的数字。
