Private Sub Cmd_bezahlenClick(sender As System.Object, e As System.EventArgs)
		Dim strbetrag as Decimal
 
			If txt_einwurf.Text = "" Then
				messagebox.Show("Keinen Betrag eingegeben!", "Kaffeeautomat", _
  Messageboxbuttons.OK, messageboxicon.Exclamation)
			ElseIf txt_einwurf.Text < lbl_betrag.Text Then
				messagebox.Show("Bitte noch Geld nachwerfen!", "Kaffeeautomat", _
  Messageboxbuttons.OK, messageboxicon.Exclamation)
			ElseIf txt_einwurf.Text = lbl_betrag.Text Then
				messagebox.Show("Vielen Dank für den Kauf", "Kaffeeautomat", _
  Messageboxbuttons.OK, messageboxicon.Exclamation)
			Elseif txt_einwurf.Text > lbl_betrag.Text then
				strbetrag = txt_einwurf.Text - lbl_betrag.Text
				Messagebox.Show("Ihr Rückgeld:" & " " & strbetrag, "Kaffeeautomat", _
  messageboxbuttons.OK, Messageboxicon.Information)
			End If
 
		End Sub