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
