Imports System

Imports System.Linq

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim data As String = "0:1:2:test1;test2;test3:1;2;3"

        Dim fields = data.Split(":")

        Dim v_names As String() = fields(3).Split(";")

        Dim v_nums As String() = fields(4).Split(";")

        Dim strings = v_names.Zip(v_nums, Function(name, num) $"{name}:{num}")

​

        Dim result As String = String.Join(vbCrLf, strings)

        Console.WriteLine(result)

    End Sub

​

End Module