Trim IP address

https://learn.microsoft.com/en-us/dotnet/api/system.string.contains?view=net-5.0

Hi,
you can use System.Net.IPAddress. Try following code:

Module Module72

  Sub Main()
    Try
      Dim c As New Demo
      c.Execute()
    Catch ex As Exception
      Console.WriteLine(ex.ToString)
    End Try
    Console.WriteLine("Continue enter key")
    Console.ReadKey()
  End Sub
  Friend Class Demo

    Friend Sub Execute()
      Try
        Dim adr() As String = New String() {"10.10.11.5", "10.10.12.111", "10.140.10.55", "10.140.11.66"}
        For i = 0 To adr.Length - 1
          Dim ipAdr As String = adr(i)
          Dim b = System.Net.IPAddress.Parse(ipAdr).GetAddressBytes ' Address Bytes '
          If b(0) = 10 And b(1) = 10 And (b(2) = 11 Or b(2) = 12) Then Console.WriteLine($"{ipAdr}: 1st command")
          If b(0) = 10 And b(1) = 140 And (b(2) = 10 Or b(2) = 11) Then Console.WriteLine($"{ipAdr}: 2nd command")
        Next
      Catch ex As Exception
        Console.WriteLine(ex.Message)
      End Try
    End Sub

  End Class

End Module

Result:

10.10.11.5: 1st command
10.10.12.111: 1st command
10.140.10.55: 2nd command
10.140.11.66: 2nd command
Continue enter key

Thanks for all your assistance with this.

I have used the code from SimpleSamples which works a treat :)

A general IP address range check

''' <summary>
''' check IP4 in range
''' </summary>
''' <param name="rngLow">low IP address</param>
''' <param name="rngHigh">high IP address</param>
''' <param name="ChkIP">IP address to check</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function IPAddrRangeCheck(rngLow As String,
                                      rngHigh As String,
                                      ChkIP As String) As Boolean
    Dim rv As Boolean = False
    Dim rL As Net.IPAddress
    Dim rH As Net.IPAddress
    Dim chk As Net.IPAddress
    'verify three IP addresses
    If Net.IPAddress.TryParse(rngLow, rL) AndAlso
            Net.IPAddress.TryParse(rngHigh, rH) AndAlso
            Net.IPAddress.TryParse(ChkIP, chk) Then

        rv = IPAddrRangeCheck(rL, rH, chk)
    End If
    Return rv
End Function

''' <summary>
''' check IP4 in range
''' </summary>
''' <param name="rngLow">low IP address</param>
''' <param name="rngHigh">high IP address</param>
''' <param name="ChkIP">IP address to check</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function IPAddrRangeCheck(rngLow As Net.IPAddress,
                                  rngHigh As Net.IPAddress,
                                  ChkIP As Net.IPAddress) As Boolean
    Dim rv As Boolean = False

    Dim _rlN As UInt32 = BitConverter.ToUInt32(rngLow.GetAddressBytes.Reverse.ToArray, 0)
    Dim _rhN As UInt32 = BitConverter.ToUInt32(rngHigh.GetAddressBytes.Reverse.ToArray, 0)
    Dim _chkN As UInt32 = BitConverter.ToUInt32(ChkIP.GetAddressBytes.Reverse.ToArray, 0)
    rv = _chkN >= _rlN AndAlso _chkN <= _rhN
    Return rv
End Function

Usage:

    '10.10.11.x or 10.10.12.x then run command
    If IPAddrRangeCheck("10.10.11.0", "10.10.11.255", "10.10.12.7") OrElse
         IPAddrRangeCheck("10.10.12.0", "10.10.12.255", "10.10.12.7") Then
        'run command
    End If