vba中数据替换

我在代码中计算出t的具体数值，想把t带入（10，t，5）并且把最终的具体数值写入txt文件中

就是计算出t=5，在txt中写入的数据是（10,5,5）

Public Sub Test()
Dim sPath As String
Dim iFile As Long
Dim t As Integer
Dim strTemporary As String
t = 5 ' 计算出t的具体数值
strTemporary = "(10," & CStr(t) & ",5)"
sPath = "D:\Temporary.txt"
iFile = FreeFile()
Open sPath For Append As #iFile
Print #iFile, strTemporary
Close #iFile
End Sub

sub test() application.screenupdating = false dim sht as worksheet dim rng as range for each sht in thisworkbook.worksheets for each rng in sht.usedrange if instr(rng, "2011年7月") > 0 then rng = replace(rng, "2011年7月", "2011年8月") next next application.screenupdating = true end sub