Imports System

Public Module Module1

    Public Sub Main()

        Dim line As String = "test:test2"

        Dim lineparts() As String

        lineparts = line.Split(":")

        If lineparts.Length = 2 Then

        Console.WriteLine(lineparts(0) + ", " + lineparts(1) )

        Else

            Throw New Exception()

        End If

    End Sub

End Module