在VB中，可以使用`Math.Log`函数来计算自然对数，该函数返回以e（约等于2.718282）为底的对数值。如果需要计算以其他数为底的对数，可以使用公式`log_n（x） = log（x） / log（n）`。以下是一些示例代码：
计算自然对数
```vb
Dim x As Double
x = Math.Log（10）
Print x ' 输出： 2.30258509299405
```
计算以10为底的对数
```vb
Dim x As Double
x = 100
Dim y As Double
y = Math.Log（x） / Math.Log（10）
Print y ' 输出： 2
```
计算以任意数为底的对数
```vb
Private Function LogTen（X As Double） As Double
If X <= 0 Then
MsgBox "参数错误"
Exit Function
End If
LogTen = Math.Log（X） / Math.Log（10）
End Function
Private Function LogNtr（X As Double, n As Double） As Double
If n <= 0 Or n = 1 Then
MsgBox "参数错误"
Exit Function
End If
If X <= 0 Then
MsgBox "参数错误"
Exit Function
End If
LogNtr = Math.Log（X） / Math.Log（n）
End Function
```
使用Math.Log10方法计算以10为底的对数
```vb
Dim x As Double
x = Math.Log10（100）
Print x ' 输出： 2
```
使用Math.Log方法计算以任意底数的对数
```vb
Dim x As Double
x = Math.Log（100, 2） ' 计算以2为底的对数
Print x ' 输出： 6.64385618977472
```
通过这些方法，你可以在VB中方便地计算不同底数的对数。