find函数问题求大神解决

Sub h()
   Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "["
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
    End With
    Selection.Find.Execute
End Sub

其中 .Text = "[" 这一句如果改成能搜索Text="["&number&"]"
就是搜索出“【任意整数】”就用空白代替
number这个数字可以是1000以内正整数，不知道写这个程序了。

vb中要text可以代表任意数的代码是什么？？求大神指教

[此贴子已经被作者于2017-3-18 15:47编辑过]