Hola, mi problema es que al ejecutar el msgbox en la parte de cambio me da un numero de mas al final el cual es un 4 o un 6 cuando hago cambios para intentar quitarlo, aquí dejo mi código por si alguien me puede ayudar
Dim suma, resta As Integer
suma = (Val(lblcarne.Text) + Val(lblcomida.Text) + Val(lblpollo.Text) + Val(lblmixto.Text) + Val(lblpollo4.Text) + Val(lblcarne3.Text) + Val(lblrefresco.Text) + Val(lblrefresco3.Text) +
Val(lblagua.Text))
lbltotal.Text = suma
resta = Val(txtcambio.Text)
lblcambio.Text = resta - Val(lbltotal.Text)
MsgBox("El total de venta es : " & lbltotal.Text & " Su cambio es : " & txtcambio.Text - lbltotal.Text & MsgBoxStyle.YesNo)