プログラムの意味を教えてください

質問

ここで繰り返しについてのプログラムについて質問させていただいたものです。
いろんな方にプログラムについて教えていただきありがとうございました。コピーして貼り付けしてプログラムは完成したのですが、内容もわからないままとかいやなので下記に貼り付けしてあるプログラムを簡単にでもかまいませんので説明してほしいのです。内容を理解したうえで先に進みたいので是非わかる方よろしくお願いします。

Private Sub Command1_Click()
　　Label1.Caption = NumKanji(Text1.Text)
End Sub

Private Function NumKanji(ByVal Arg As String) As String
　　Dim Idx As Long
　　For Idx = 1& To 10&
　　　　Arg = Replace$(Arg, _
　　　　　　Mid$("1234567890", Idx, 1&), _
　　　　　　Mid$("一二三四五六七八九〇", Idx, 1&) _
　　　　)
　　Next
　　NumKanji = Arg
End Function

回答No.1

NYOI

Private Function NumKanji(ByVal Arg As String) As String
　　Dim Idx As Long
　　'文字の置換処理
　　'Replaceは文字を置換する関数
　　'Midは指定範囲の文字を取り出す関数
　　'Forで繰り返すことにより、"1"を"一"に置換、"2"を"二"に置換…
　　'といった処理が順になされる。
　　For Idx = 1& To 10&
　　　　Arg = Replace$(Arg, _
　　　　　　Mid$("1234567890", Idx, 1&), _
　　　　　　Mid$("一二三四五六七八九〇", Idx, 1&) _
　　　　)
　　Next
　　NumKanji = Arg
End Function

Forループ部分は分解すると
Arg = Replace$(Arg, "1", "一")
Arg = Replace$(Arg, "2", "二")
…
Arg = Replace$(Arg, "0", "〇")
としているのと同じ。

ちなみに数値や関数についている記号についてですが、&はそれがLong型であることを示し、$はそれが文字型であることを示しています。

補足

丁寧な回答ありがとうございました。
おかげでなんとなくながらもどこでどんなことをやっているのかがわかりました。本当にありがとうございました。

これからもVisual　Basicについて質問していくと思いますのでよかったらいろいろ教えていただけるとうれしいです。