VBA代码转换成VB代码

--------------------编程问答--------------------   Range(Cells(j + 3, 2), Cells(j + 3, "G")) = d.keys ‘？这行是什么意思，请解释一下。  Range(Cells(j + 3, 2), Cells(j + 3, "G")).Sort Key1:=Cells(j + 3, 2), Order1:=xlAscending, Header:=xlGuess
  d.RemoveAll
 
--------------------编程问答-------------------- Range(Cells(j + 3, 2), Cells(j + 3, "G")) = d.keys ‘？这行是什么意思，请解释一下。 
这个是说从第j+3行的第2列到第"G"列的数据都为d.keys

Range(Cells(j + 3, 2), Cells(j + 3, "G")).Sort Key1:=Cells(j + 3, 2), Order1:=xlAscending, Header:=xlGuess  d.RemoveAll
这一句是排序的命令
--------------------编程问答-------------------- 回复2楼：谢谢你的解答。
能否帮助把我的程序（VBA）转换成VB代码；把生成的数据放在RichTextBox1中。
其他高手愿意帮忙的话，在此先表示感谢。 --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/2341786

补充：VB ,  基础类