Private Sub Meldung()
        Dim drowval = Format(CDbl(BS_Kontodetails_TypRow.Betrag), "#,0.00")
        Dim eingval = Format(CDbl(BetragTextBox.Text), "#,0.00")
        Using frm As New Messagebox_OK
            With frm
                .lbl_Status.Text = Format(Now, "dd.MM.yyyy HH:mm:ss")
                .lbl_Datensatzmodus.Text = "Neue Buchung"
                .lbl_Eingabewert.Text = eingval
                .lbl_Datarowwert.Text = drowval
                .ShowInTaskbar = True
                .BringToFront()
                .TopMost = True
                .ShowDialog(Me)
                'nachdem frm geschlossen wurde:
                If .Eingabe_OK = True Then
                    _Speichern()
                Else
                    _Eingabeabbrechen()
                End If
            End With
        End Using
        Me.Show()
    End Sub