VB.net เรื่องการตัดคำครับ เหลืออีกนิดเดียว ช่วยหน่อยนะครับสำคัญมาก

        Dim convert() As String = {"a", "b", "c", "d"}
        Dim i As Integer
        Dim number As String = ""
        Dim number1 As String = ""
        For i = 0 To convert.Length - 1
            number &= convert(i)
            number = number.Replace("b", "zz")
        Next
        Dim numb As String = String.Empty
        For j As Integer = 1 To number.Length
            If (j Mod 2 = 0) Then
                numb = numb & Mid(number, j, 1)
            End If

        Next

        MsgBox(numb)