MS Rückruf

EnvelopeGenerator.Form/frmRueckruf.vb

@@ -21,7 +21,10 @@ Public Class frmRueckruf
             End If
             tsstatus.Text = ""
             Continue_Reject = True
+            Dim oReason = txtReason.Text
+            oReason.Replace(vbCr, "<br>").Replace(vbLf, "<br>")
             Reject_reason = txtReason.Text
+            Me.Close()
         Else
             tsstatus.Text = "Please add a reason for aborting - " & Now
         End If