試しに実行してみたのですが、エラーで先に進めず断念しました。

はじめ大きな画像で実行するとButton1_Clickの
r_data(x, y) = myColor.R    'Red成分 
の行で IndexOutOfRangeException の例外

小さな画像でやったら
myColor = myBMP.GetPixel(x, y)
の行で　ArgumentOutOfRange の例外

PictureBox1のサイズを160x120にする必要があるのかなとやってみたら
Button1クリックでエラーなく画像が表示されましたが、
Button2クリックの
R_average = Int(R / pixels)
の行で OverflowException の例外

ここで断念しました。
(これ以上時間を使いたくないので)

ギルさんが解決したい問題は何でしょうか？
その問題はどのような操作で発生しますか？

最初にご質問された
PictureBox2.Image.Save(SaveFileDialog1.FileName)     'モザイク化画像ファイル保存
の行も、含まれておらずもうちょっとわかりやすく質問していただけるとお互い時間の節約になるかと思います。