大神来帮忙，vba查找替换问题。

Sub nb()
Dim s As String
Dim x As String
x = Range("H255")
s = "截止至目前”
s = Replace(s, "至", "线网客运量&"x"“)
MsgBox s
End Sub
我想把“至“先查找后替换，替换数据为某个单元格的内容，该怎么写？