如题：我从服务器上读取信息，服务器返回信息，已知返回格式为 ：

 OID=23411&PHONE=13012345678&SP_NUMBER= 10655168826278&RECV_TIME= 20080225134241&MSG_CONT=信息内容

怎么样才能让返回的内容按照格式储存到表格里呢，对应列名（oid,phone,sp_number,recv_time,msg_cont)

Dim url As String
Dim http As Object
url = http://218.246.34.171/daredo/pushsms/mingxun_mo.jsp?CP_ID=155901&CP_PASSWORD=210739
http = CreateObject("MSXML2.XMLHTTP")
http.Open("post", url, False)
http.send()
MessageBox.Show ("返回消息:"& http.responseText)
Dim r As Row = Tables("表A").AddNew()
r("czr") = User.Name
r("czsj") = Date.Now

另外，针对这些问题，我应该去哪找教程，请高手指点！

在命令窗口测试：

Dim msg As String = "OID=23411&PHONE=13012345678&SP_NUMBER= 10655168826278&RECV_TIME= 20080225134241&MSG_CONT=信息内容"
Dim vals() As String  = msg.split("&")
For Each val As String In vals
    Dim nms() As String = val.split("=")
    If nms(0) = "PHONE" Then
        output.show("电话:" & nms(1))
    ElseIf nms(0) = "MSG_CONT" Then
        output.show("内容:" & nms(1))
    End If
Next

狐爸啊，我没有编程基础，估计我理解不了您的意思，在命令窗口是可以显示出来，可我们每次返回来的格式一样，内容不一样啊，您好是直接教我把内容写到表里吧，

1、我对你这个收信息的业务感兴趣，能告诉我哪里可以开通吗？

2、完整的代码：

Dim url As String
Dim http As Object
Dim msg As String
url = "http://218.246.34.171/daredo/pushsms/mingxun_mo.jsp?CP_ID=155901&CP_PASSWORD=210739"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("post", url, False)
http.send()
msg =  http.responseText
Dim r As Row = Tables("表A").AddNew()
Dim vals() As String  = msg.split("&")
For Each val As String In vals
    Dim nms() As String = val.split("=")
    If nms(0) = "RECV_TIME" Then
        r("czsj") = nms(1)
    ElseIf nms(0) = "MSG_CONT" Then
        r("czr") = nms(1)
    End If
Next

我现在用的是这家的：http://www.jing-hai.com/index.html

优点：106开头的号码，号码短（12位），最主要是他允许我先充值几百条试用，

缺点：发送延迟1分钟左右，回复更慢，

另外一家：http://www.dxton.com/index.html

优点：发送和回复都比较快

缺点：106的号码为14位，起充1万条（650元）

他们都提供测试账号

我是后来才找到下面这家的，主要是我没编程基础，怕弄不好，要不就用下面这家了，

对于您来说就没关系啦，哈哈，

狐爸，最好您做一工程，然后给我抄一下，哈哈