Private Sub txtQuantity_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtQuantity.Validating

If txtDescription.Text <> "" Then

SaveCurrentEntry()

Else

txtDescription.Text = InputBox("All other fields can be empty, but please type in a Description for this coin...", "Description Required")

MsgBox("Thank you")

SaveCurrentEntry()

End If

End Sub