ho fatto così
codice:
Private Sub cmdaddvoce_Click()

On Error GoTo errore
 costoinput = costoinput + InputBox("Inserire il costo della nuova voce", "Nuova Voce")

MsgBox costoinput



errore:
MsgBox Err.Description
    
Unload Me

End Sub
solo che anche se gli passo un valore mi tira fuori un text box vuoto(nn c'è scritto niente) solo con il tasto ok.
Forse faccio un errore nella gestione degli errori?