z = 0
 
        Do
 
            If z > 0 Then
 
                MsgBox ("Bitte machen Sie eine Eingabe!"), vbOKCancel
                If reply = vbOK Then
                    myInput = InputBox("In welcher Spalte steht die" & _
                      "Firmennummer?", "Firmennummer", "Spaltennummer")
                Else
                    Exit Sub
                    lstFile.Clear
                End If
 
            End If
 
            myInput = InputBox("In welcher Spalte steht die Firmennummer?", _
              "Firmennummer", "Spaltennummer")
            z = z + 1
 
        Loop While myInput = "Spaltennummer" Or myInput = ""
        column = Val(myInput)