Merhaba
örneğiniz yok ama ,ekteki örneği kendinize uyarlayabilirsiniz
Private Sub CommandButton1_Click()
Dim en As Double
Dim boy As Double
Dim yukseklik As Double
Dim sonuc As Double

' En, Boy ve Yükseklik değerlerini al (örneğin TextBox2, TextBox3 ve TextBox4'ten)
en = CDbl(TextBox2.Text)
boy = CDbl(TextBox3.Text)
yukseklik = CDbl(TextBox4.Text)

' Hesaplama
sonuc = (en * boy * yukseklik) / 3000

' Yuvarlama
If sonuc < 2 Then
sonuc = 2
Else
sonuc = WorksheetFunction.Ceiling(sonuc, 1)
End If

' Sonucu TextBox1 içine yaz
TextBox1.Text = "Sonuç: " & sonuc
End Sub