在VB编程中，可以使用以下方法来取一个整数的百位数：
使用数学计算
百位数可以通过整数除以100再取整得到。具体代码如下：
```vb
Dim num As Integer
num = 12345 ' 假设这是要处理的数字
Dim hundreds As Integer
hundreds = num \ 100 ' 取百位数
MsgBox "百位数是： " & hundreds
```
使用字符串操作
可以先将数字转换为字符串，然后使用字符串的`Left`函数来提取百位数。具体代码如下：
```vb
Dim numStr As String
numStr = CStr（12345） ' 将数字转换为字符串
Dim hundreds As String
hundreds = Left（numStr, 1） ' 提取百位数
MsgBox "百位数是： " & hundreds
```
使用Mod运算符
可以使用Mod运算符来获取数字的最后一位，即个位数，然后通过减法得到百位数。具体代码如下：
```vb
Dim num As Integer
num = 12345 ' 假设这是要处理的数字
Dim hundreds As Integer
hundreds = （num - （num Mod 10）） \ 100 ' 取百位数
MsgBox "百位数是： " & hundreds
```
以上方法都可以有效地提取一个整数的百位数。选择哪种方法取决于具体的需求和编程风格。