大家帮忙看看一个自定义函数．

[sektor]

Public Function Vmod(ByVal X1 As Variant, X2 As Variant) As Boolean

Dim temp_str As String

temp_str = Format(CDec(X1) / CDec(X2), "0.00000")

If Right(temp_str, 6) = ".00000" Then
Vmod = True
Else
Vmod = False
End If

End Function

用来取代系统mod运算符的，因为现在要对超长整数运算，只想知道前者是否可以整除后者．
有更好的办法没有，大量运算实在是感觉效率不高

[lmshj]

这样也不算大量语句啊

[sektor]

突然发现，假如是999999999999 /999999999998会是什么结果？？我晕．