Sayın berdus,
Dim n, hsp1, hsp2, sonuc As Integer
bu şekilde ekledim,
ama sonuç olarak yukarıda yazdığım gibi 8 rakamını veriyor.?