Summing up digits in an integer

[DataMiser]

I was thinking that may be the case as well but did not go so far as to confirm if so then it is as simple as just using a mod operator

If MyNumber Mod 3 = 0 Then
    MsgBox "Is evenly divisible"
Else
    MsgBox "Is not evenly divisible"
End If