Dim abfr_MAXIMO As String
        abfr_MAXIMO = MAXIMOTextBox.Text.Trim
 
        'Abfrage ob MAXIMO bereits vorhanden
        Dim AbfrageName = From Reihe In LagerDB.Lagerliste
                          Where IsDBNull(Reihe.RowState) <> _
                            DataRowState.Deleted AndAlso _
                          (Reihe.MAXIMO.ToLower = abfr_MAXIMO.ToLower)
                          Select Reihe.Standort, Reihe.Artikelbezeichnung
 
        If AbfrageName.Count > 0 Then
            Dim Form_Rueckgabewert As Boolean
 
            Using Dialog_Form As New frm_Dialog()
                With Dialog_Form
                    .ShowInTaskbar = True
 
                    'Titel an frm_Dialog übergeben
                    .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                    'Meldung an frm_Dialog übergeben
                    Dim sbMeldung As New System.Text.StringBuilder
                    sbMeldung.AppendFormat("{0} {1} {2}", "Die Maximo-Nummer ", _
                      abfr_MAXIMO)
                    sbMeldung.AppendLine()
                    sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                      AbfrageName.Count, " mal vergeben.")
                    sbMeldung.AppendLine()
                    sbMeldung.AppendLine()
                    sbMeldung.Append("Soll die Maximo-Nr trotzdem hinzugefügt" & _
                      "werden?")
                    .lbl_Meldung.Text = sbMeldung.ToString
 
                    'Alle Wohnorte an frm_Dialog übergeben
                    .ListBox_Daten.Items.AddRange(AbfrageName.ToArray)
 
                    'frm_Dialog anzeigen
                    .ShowDialog(Me)
                End With
 
                'Abfragen, ob Ja oder Nein geklickt wurde
                Form_Rueckgabewert = Dialog_Form.return_wert