s = 19107012 L = s Mod 10 T = s Mod 100 k = s Mod 10000 sum1 = T + L sum2 = k + s MsgBox sum1 MsgBox sum2 difference1 = T - L difference2 = k - s MsgBox difference1 MsgBox difference2 dotproduct = T * L + k * s MsgBox dotproduct crossproduct = T * s - k * L MsgBox crossproduct