在VB（Visual Basic）中实现数字翻转，你可以使用以下代码：
```vb
Private Function ReverseNumber（ByVal number As Integer） As Integer
Dim reversedNumber As Integer = 0
Dim tempNumber As Integer = number
While tempNumber > 0
reversedNumber = （reversedNumber * 10） + （tempNumber Mod 10）
tempNumber = tempNumber \ 10
End While
Return reversedNumber
End Function
```
这个函数`ReverseNumber`接受一个整数`number`作为参数，并返回它的翻转版本。函数内部使用了两个变量：`reversedNumber`用于存储翻转后的数字，`tempNumber`用于临时存储输入的数字。通过一个`While`循环，每次循环将`tempNumber`的个位数取出并添加到`reversedNumber`的末尾，然后将`tempNumber`除以10，以便下一次循环处理下一个位数。循环继续直到`tempNumber`变为0，此时翻转操作完成，函数返回`reversedNumber`作为结果。
如果你想要翻转一个字符串而不是数字，你可以使用以下代码：
```vb
Function ReverseString（ByVal str As String） As String
Dim reversedString As String = ""
For i As Integer = str.Length - 1 To 0 Step -1
reversedString = reversedString & Mid（str, i, 1）
Next
Return reversedString
End Function
```
这个函数`ReverseString`接受一个字符串`str`作为参数，并返回它的翻转版本。通过一个`For`循环从字符串的末尾向前遍历，每次循环将当前字符添加到`reversedString`的末尾。循环完成后，返回`reversedString`作为结果。
请注意，这些代码示例适用于VB6及其之前的版本。如果你使用的是VB.NET或其他现代VB版本，语法可能会有所不同。