Imports System.Collections.Generic
Dim input As let = new List()
Dim 2, 3, 5, 7 As 1,
 
Dim output As let = new Array()
For i As let = 0 To input.length-1
 For j As let = 0 To input.length-1
 If input(i) <> input(j) AndAlso  input(i) < 5 Then
  output.push(input[i] * 10 + input[j])
 
  End if
 
  Next
 
  Next
 
console.log(output) '[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]

  Dim input As Integer() = {1, 2, 3, 5, 7}
 
        Dim output As New List(Of Integer)
 
        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i

 'obtenemos ip
        Dim myClientMachineAddressList As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
        Dim myClientMachineIP = myClientMachineAddressList.AddressList.Where(Function(a) a.AddressFamily = AddressFamily.InterNetwork).ToArray
 
        'Eliminamos Duplicados y sobre-escribimos en la misma variable.
        myClientMachineIP = myClientMachineIP.Distinct(EqualityComparer(Of IPAddress).Default).ToArray
 
        'recorremos los duplicados 1 por 1 y los pamos a un textbox (como string) .
        For Each ipadress In myClientMachineIP
            TextBox2.Text = TextBox2.Text & vbNewLine & ipadress.ToString
        Next
 

using System;
using System.Text.RegularExpressions;
 
public class Form1
{
    private void Button1_Click(System.Object sender, System.EventArgs e)
    {
        Regex rx = new Regex(@"(?<negativos>-\d+)|(?<positivos>\d+)");
        string positivos = "";
        string negativos = "";
        foreach (Match match in rx.Matches(txt.Text))
        {
            if (match.Groups["positivos"].Value != "")
                positivos = positivos + "," + match.Value;
            else
                negativos = negativos + "," + match.Value;
        }
        string[] numPos = positivos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
        string[] numNeg = negativos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
    }
}

 Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
 
        Public Shared Function GetProcessModules(ByVal Process_Name As String) As String
            Dim DataS As New StringBuilder
            Dim pc As Process() = Process.GetProcessesByName(Process_Name)
 
            Dim hndProc As IntPtr = OpenProcess(&H2 Or &H8 Or &H10 Or &H20 Or &H400, 1, CUInt(pc(0).Id))
            If hndProc = IntPtr.Zero Then
                Return "Error"
            End If
 
            Dim ModulesCount As Integer = pc(0).Modules.Count - 1
            For index As Integer = 0 To ModulesCount
                DataS.Append(pc(0).Modules(index).FileName & vbNewLine)
            Next
 
            Return DataS.ToString
        End Function

TextBox1.Text = GetProcessModules("nombredelProcesoDeljuego")