Private Sub TextBox1_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)

' Virgülden sonraki kısmı kontrol et
If Int(result) = result Then
TextBox3 = result ' Sonuç zaten bir tam sayı ise yuvarlamaya gerek yok
Else
TextBox3 = Round(result - 0.5, 0) ' Virgülden sonraki kısmı 0 değilse yuvarla
End If
End Sub

Private Sub ComboBox4_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)

' Virgülden sonraki kısmı kontrol et
If Int(result) = result Then
TextBox3 = result ' Sonuç zaten bir tam sayı ise yuvarlamaya gerek yok
Else
TextBox3 = Round(result - 0.5, 0) ' Virgülden sonraki kısmı 0 değilse yuvarla
End If
End Sub