怎么读取html内容中指定表格文字并加空格，间隔一下

如何读取html内容中指定表格文字并加空格，间隔一下
Dim   amount   As   String
'导向网页
s   =   Trim(Text1.Text)
WebBrowser1.Navigate2   s

s2   =   WebBrowser1.Document.body.innerText
s2   =   Replace(s2,   Trim(txt_start.Text),   "!@ ")
s2   =   Replace(s2,   Trim(txt_end.Text),   "!@ ")
s2   =   Split(s2,   "!@ ")(1)
Text2.Text   =   s2
amount   =   Text2.Text
Open   App.Path   +   "\abc.txt "   For   Output   As   #1
          Print   #1,   amount
Close   #1

abc.txt   内容没间隔怎么办？
美元7.60267.63307.54167.6330
港币0.97290.97670.96510.9767
日元0.0619480.0624340.0599520.062446

------解决方案--------------------
Dim amount As String
'导向网页
s = Trim(Text1.Text)
WebBrowser1.Navigate2 s

s2 = WebBrowser1.Document.body.innerText
s2 = Replace(s2, Trim(txt_start.Text), "!@ ")
s2 = Replace(s2, Trim(txt_end.Text), "!@ ")
s2 = Split(s2, "!@ ")(1)
Text2.Text = s2
amount = Text2.Text
Open App.Path + "\abc.txt " For Output As #1
Print #1, amount & " "
Close #1
------解决方案--------------------
Print #1, amount & " "
------解决方案--------------------
那就读取每个单元格的内容,自己加上空格,再整合保存.
------解决方案--------------------
s2 = Split(s2, "!@ ")(1)
改成
s2 = Replace(s2, "!@ ", Space(1))
------解决方案--------------------
自己替换啦，很简单的，不必依赖VB内部函数的。