最適化というわけではありませんが発想を変えて、 If lblCopy1.Caption & lblCsvmake1.Caption & lblExcelmake2.Caption = "処理済処理済処理済" Thenとか。(良い子はマネしないでね。)