[عبدالله الدوسري]

وعليكم السلام 

PHP كود :

       Dim OutputText As String = ""
        With "xx-tt-xx-yy-zz".Split("-")
            For LineIndex As Integer = 0 To .Length - 1
                OutputText &= LineIndex + 1 & "-" & .GetValue(LineIndex) & vbNewLine
            Next
        End With
        MsgBox(OutputText)