Dim str As String = "123456789990"Dim ys As Integer = right(str, 4) Mod 30If ys = 0 Then msgbox("倍数")Else msgbox("不是")End If