Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim data As String = "Name: xxx-PC; IP: xxx.xxx.xxx.xxx"

        Dim name As String = String.Empty

        Dim ip As String = String.Empty

        Dim match = Regex.Match(data, "^Name: (.*?); IP: (.*?)$")

        If match.Success Then

            name = match.Groups(1).Value

            ip = match.Groups(2).Value

        End If

        Console.WriteLine(name)

        Console.WriteLine(ip)

    End Sub

End Module