Esto me funcionó, sólo que puse el código en un botón, espero que te sirva, tal vez el error estaba en que no declarabas las variables de tipo entero.
Private Sub CommandButton1_Click()
Dim largo, ancho, altura As String
Dim area, volumen, vlargo, vancho, valto As Integer
largo =...