Dim Seriales1 As String = "_xxxxxxxx_zzzzzzzzz"
Dim Seriales2 As String = "_xxxxxxxx_hhhhhhhh_zzzzzzzzz"
Dim Seriales3 As String = String.Join("_", Seriales2.Split("_").Except(Seriales1.Split("_")))

    ' Creo un Array para almacenar como referencia el rango de semanas GPS.
    ' Al valor inicial hay que descontarle un '1' (1772) porque el índice de un array empieza por '0'.
    Private ReadOnly GPSWeeks As Integer() =
        Enumerable.Range(1773 - 1, 1825).ToArray
 
    ' Obtengo la cantidad de dias del año actual.
    ' Esto lo hago por los años bisiestos, que tienen '1' día más (366).
    Private ReadOnly TotalDaysInYear As Integer =
        (From month As Integer In Enumerable.Range(1, 12)
        Select DateTime.DaysInMonth(Now.Year, month)).Sum
 
    ' Ya estamos listos para iterar los elementos ...del modo que uno prefiera :), esto solo es un ejemplo:
    Private Sub Test() Handles MyBase.Shown
 
        Dim sb As New System.Text.StringBuilder
 
        For DayOfYear As Integer = 1 To TotalDaysInYear ' (365 or 366)
 
            ' Obtengo la fecha exacta dado el número del día del año actual.
            Dim DateOfYear As DateTime = New DateTime(Now.Year, 1, 1).AddDays(DayOfYear - 1)
 
            sb.AppendLine(String.Format("Day Of Year: {0}", CStr(DayOfYear)))
            sb.AppendLine(String.Format("Date: {0}", CStr(DateOfYear)))
            sb.AppendLine(String.Format("GPS Week: {0}", CStr(Me.GPSWeeks(DatePart(DateInterval.WeekOfYear, DateOfYear)))))
 
            MessageBox.Show(sb.ToString, "GPS Calendar Info - By Elektro",
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            sb.Clear()
 
        Next DayOfYear
 
    End Sub

Porfavor, ya que tienes el detalle de llevar las normas del foro en tu firma, la próxima vez podrías intentar respetar la utilización de las etiquetas GeShi, no es un muy buen ejemplo ...

    Private Sub Test() 
 
        Dim Amount As Integer = -0I
        Dim Unknown As Object = " 5 "
 
        ' No uses el método 'Val()' para validar, es algo prehistórico ...de VB6.
        Integer.TryParse(Convert.ToString(Unknown).Trim, Amount)
 
        Dim Buttons As List(Of Button) =
            GetDynamicControls(Of Button)(Collection:=Me.Controls,
                                          NamePattern:="Button",
                                          NameRange:=Enumerable.Range(1, Amount)) ' From Button1 To Button5
 
        Buttons.ForEach(Sub(bt As Button) bt.Enabled = False)
 
    End Sub

    ' Get Dynamic Controls
    ' ( By Elektro )
    '
    ''' <summary>
    ''' Gets a range of controls dinamycally by specifying the control's name pattern.
    ''' 
    ''' To use this method properly, the controls need to have a dynamic name.
    ''' 
    ''' Example:
    ''' 'Button1', 'Button2', 'Button3', etc..
    ''' Both has the same name and only differs the indexed number.
    ''' 
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="Collection">Indicates the control collection where to find the controls.</param>
    ''' <param name="NamePattern">Indicates the name pattern of the controls.</param>
    ''' <param name="NameRange">Indicates the dynamic indexed pattern range.</param>
    ''' <returns>List(Of T).</returns>
    Private Function GetDynamicControls(Of T)(ByVal Collection As ControlCollection,
                                              ByVal NamePattern As String,
                                              ByVal NameRange As IEnumerable(Of Integer)) As List(Of T)
 
        If NameRange.Count < 1 Then Return Nothing
 
        Dim Controls As New List(Of T)
 
        For Each ctrl As T In Collection.OfType(Of T)()
 
            For Index As Integer = NameRange.Min To NameRange.Max
 
                If TryCast(ctrl, Control).Name.Equals(NamePattern & CStr(Index), StringComparison.OrdinalIgnoreCase) Then
                    Controls.Add(ctrl)
                End If
 
            Next Index
 
        Next ctrl
 
        Controls.Reverse() ' Sort them.
 
        Return Controls.ToList()
 
    End Function

Choice.exe /C "123" /M "Elige" /T 10 /D "3"
(Echo %ErrorLevel%) & REM Resultado: '3'

$driveEject = New-Object -comObject Shell.Application
$driveEject.Namespace(17).ParseName("E:").InvokeVerb("Eject")

	For Each d in CreateObject("Scripting.FileSystemObject").Drives
		CreateObject("Shell.Application").Namespace(17).ParseName("E:\").InvokeVerb("Eject")
	Next

rundll32.exe shell32.dll,Control_RunDLL hotplug.dll, @SystemDir

    Private Shadows Sub Shown(sender As Object, e As EventArgs) _
    Handles MyBase.Shown
 
        Try
            Dim Url As New Uri(String.Empty)
 
        Catch ex As Exception
 
            Using ErrorDialog As New ErrorDialog(ex, sender)
                ErrorDialog.ShowDialog()
            End Using
 
        End Try
 
    End Sub

Public Class Form1
 
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Catches Managed Exceptions.
        AddHandler AppDomain.CurrentDomain.FirstChanceException, AddressOf Application_ManagedException
 
        ' Catches Unhandled Exceptions.
        AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Application_UnhandledException
 
        ' Catches Thread Exceptions.
        AddHandler Application.ThreadException, AddressOf Application_ThreadException
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'UnhandledException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="UnhandledExceptionEventArgs"/> instance containing the event data.</param>
    Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
 
        Using ErrorDialog As New ErrorDialog(DirectCast(e.ExceptionObject, Exception), Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'FirstChanceException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="Runtime.ExceptionServices.FirstChanceExceptionEventArgs" /> instance containing the event data.</param>
    Private Sub Application_ManagedException(ByVal sender As Object, ByVal e As Runtime.ExceptionServices.FirstChanceExceptionEventArgs)
 
        Using ErrorDialog As New ErrorDialog(e.Exception, Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'ThreadException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="Threading.ThreadExceptionEventArgs"/> instance containing the event data.</param>
    Private Sub Application_ThreadException(sender As Object, e As Threading.ThreadExceptionEventArgs)
 
        Using ErrorDialog As New ErrorDialog(e.Exception, Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
End Class