Try
            Dim i As Integer
            Dim FirstChar As String = ""
 
            lbStatus.Text = "Der Interpret wird in die Datenbank geschrieben"
            lbStatus.Refresh()
            i = 0
            While i < AnzahlMusic
                Try
                    FirstChar = MusicTitle(i).Interpret.Substring(0, 1)
                    Select Case FirstChar
 
                        Case Is = "A"
                            Try
                                Excel1.Worksheets(Sheet.A).Range("A" + Position( _
                                  0).ToString).Value = MusicTitle(i).Interpret
                                Excel1.Worksheets(Sheet.A).Range("B" + Position( _
                                0).ToString).Value = MusicTitle(i).Album
                                Excel1.Worksheets(Sheet.A).Range("C" + Position( _
                                0).ToString).Value = MusicTitle(i).Titelnummer
                                Excel1.Worksheets(Sheet.A).Range("D" + Position( _
                                0).ToString).Value = MusicTitle(i).Titel
                                Excel1.Worksheets(Sheet.A).Range("E" + Position( _
                                0).ToString).Value = MusicTitle(i).Position
                                Excel1.Worksheets(Sheet.A).Range("F" + Position( _
                                0).ToString).Value = MusicTitle(i).Year
                                Position(0) += 1
                                lbAktion.Text = "Tabelle A wurde ermittelt"
                                lbAktion.Refresh()
                                PreSave()
                            Catch ex As Exception
                                PreSaveReopen()
                                SaveSettings()
                            End Try

                    End Select
 
                    PreSave()
 
                    SaveSettings()
                    lbAktion.Text = MusicTitle(i).Interpret + " - " + _
                      MusicTitle(i).Album + " - " + MusicTitle(i).Titelnummer + _
                      " - " + MusicTitle(i).Titel + " - " + MusicTitle( _
                      i).Position + " - " + MusicTitle(i).Year + " wird" & _
                      "Eingelesen"
                    lbAktion.Refresh()
                    i += 1
                Catch ex As Exception
                End Try
            End While
 
 
        Catch ex As Exception
        End Try