SUB MAIN DIM A, B, C AS VARIANT DIM I AS INTEGER A=2.3 B=4 C=1 I=8 I=A+B-C PRINT I END SUB