duda

[kimbo89]

mirad tengo una duda, os dejo el codigo y luego os comento...

Sub DineroGastado()
'Ejercicio creado por MIGUELITO!

Dim total As integer
Dim compra As integer
Dim dinerototal As integer

total = 0

compra = 0

dinerototal = 100

Do While total < dinerototal
    compra = InputBox("Escribe el precio del articulo")
    total = total + compra
   
    If total < 0 Then
    MsgBox "Te has gastado demasiado dinero"
    End
    End If
   
    If total > 0 Then
    MsgBox "Te queda " & dinerototal - total & " Euros"
    End If
Loop
MsgBox ("Has acabado todo tu dinero")

End Sub

Vale e aqui mi duda, es un programa que dices la cantidad de dinero que te cuesta un articulo y te lo resta, despues te aparece un msgbox que te dice cuanto dinero te queda, pero al terminar, por ejemplo si te queda 1 EURO y pones 2 euros, te dice q te queda -1 euro..
como puedo hacer para que no me salga -1 euro, y directamente si pongo 2 euros, me diga que me e he gastado demasiado dinero.

Gracias

NOTA: ES PARA VISUAL DE WORD