SoloCodigo

hola
como puedo arreglarlo  para que no me de error si no se entra información en los inputbox. Yo se muy poco, apenas estoy aprediendo y espero que me ayuden.

------------------------------------------------------
Private Sub Command1_Click()
Dim cantidad As Integer
Dim articulos As String
Dim precio As Integer
Dim total As Integer

cantidad = InputBox("Intruduzca la Cantidad", "Introducir")
List1.AddItem cantidad
articulos = InputBox("Intruduzca el Artículo", "Introducir")
List2.AddItem articulos
precio = InputBox("Intruduzca el Precio", "Introducir")
List3.AddItem precio

total = (cantidad * precio)
List4.AddItem total


Text1.Text = Val(Text1.Text) + Val(total)

End Sub

Soy nueva, casi no se nada de VB y ahora estoy necesitando el codigo de una calculadora simple.

espero repuestas