VBS 读取文本文件特殊字符前如逗号的值并赋值给变量

我使用的仿真终端SecureCRT需要使用一个脚本，支持VBS的。我需要实现如下功能：

首先文本文件在：D：100.txt
文本文件的内容为：
9 0，randy，
9 1，jeff，
9 2，sameul，

现在需要一个循环自动执行相关的参数，循环需要调用两个变量tn和name。
要把文本文件的第一个逗号前的值赋值给tn，第二个逗号前的参数赋值给name。我没有学过VBS请尽量写的详细点。

set fso=wscript.createobject("scripting.filesystemobject")
set fr=fso.opentextfile("d:100.txt",1)

do until fr.atendofstream
a=fr.readline:b=split(a,"，"):j=j+1
tn=b(0):name=b(1)
msgbox "第"&j&"行"&vbcrlf&vbcrlf&"tn是:"&tn&"； name是:"&name
loop