Александр Ковалевич

Допустим, пробрасываем диапазон 10000-10400 интерфейса Ethernet на адрес 192.168.137.3:

FOR /L %I IN (10000,1,10400) DO netsh routing ip nat add portmapping Ethernet udp 0.0.0.0 %I 192.168.137.3 %I

потом проверяете, все ли в порядке:

netsh routing ip nat show interface Ethernet

Например, так (проверяются все субэлементы):

For Each lvi As ListViewItem In ListViewZ.Items
    Dim found As Boolean = False

    For Each si As ListViewItem.ListViewSubItem In lvi.SubItems
        If si.Text = Variables.UserCity Then
            found = True
            Exit For
        End If
    Next

    If Not found Then
        lvi.Remove()
    End If
Next

Как я понял, надо плясать в сторону Parse

Dim ServerIP = "127.0.0.1"
Dim  address As IPAddress = IPAddress.Parse(ServerIP)
Dim ServerPort As Integer = 50000
TextBoxServerIP.Text = ServerIP
TextBoxServerPort.Text = ServerPort
Dim Server As New TcpListener(address, ServerPort)
Server.Start()