Thanks arhanghelul.... I will try it
by the way iam sorry, I wrong wrote question, it should answer in "Thanks Arhanghelul for your question and link journal..." (above)
Hi Yasmin
Frankly I do not want to practice VBA on top of ArcMap again. In case of doing the same thing in python (ArcPy) may be can give good advise.
However, in your code, i think you defined workspace (which is default for vector data) for raster you need to use RasterWorkspaceFactory/NewRasterWorkspace etc.