[VB6 ] 請教各為神大大,哪裡有錯啊?

[jamanson (jason)]

我寫了一個小程式,
目的是要把句子依符號(ex.逗號)分開,
比方說下面這段話:
"我是丁丁,他是丁丁,誰是丁丁"
將他分開印出成:我是丁丁
               他是丁丁
               誰是丁丁
但是卻不知道有什麼問題,弄不太出來
以下是我的程式,請教各為神大大,問題出在哪裡?
====================================================
Module Module1
    Sub Main()
        Dim count As Integer = 0, i, j, k As Integer
        Dim str, showstring As String
        Dim sen As String() = New String() {}
        Console.WriteLine("請輸入任何只有中文字的句子")
        str = Console.ReadLine()
        For i = 1 To Len(str)
            If Mid(str, i, 1) = "," Then
                sen(j) = Mid(str, k + 1, i - 1) '我懷疑問題出現在這裡??
                k = i
                j += 1
            End If
        Next
        For Each showstring In sen
            Console.WriteLine("{0}", showstring)
        Next
        Console.Read()
    End Sub
End Module
=====================================================
補充一下,我用的是VB2005express
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.160.238.62
※ 編輯: jamanson        來自: 218.160.238.62       (08/11 01:19)
推 gofin:記得VB2005好像也可以用 陣列=spilt(字串,分隔符號)
推 fumizuki:Join(Split(字串, ","), vbCrLf)
推 fumizuki:Join(字串.Split(","), vbCrlf)
→ fumizuki:記得標題要用[.NET] 不是VB6
→ jamanson:Join要怎麼用啊?