怎的实现宏替换

怎样实现宏替换？
Dim i As integer =21
Dim x As String = "PatMax" + i.ToString
(下面我想定义PatMax21 为CogPMAlignTool，怎样实现？)
Dim &x  As New CogPMAlignTool
[解决办法]
使用字典数组代替直接使用变量。