Public Class Form1
 
    Public Class GroupOfTwo
        Public First As Integer
        Public Last As Integer
    End Class
 
    Private Shadows Sub Shown() Handles MyBase.Shown
 
        Dim constantValues As New List(Of Integer) From
           {
               1I, 9I, 11, 12, 14, 16, 20, 24, 35, 38,
               40, 44, 50, 58, 59, 60, 68, 70, 77, 80,
               81, 88, 90, 92, 99
           }
 
        Dim groups As IEnumerable(Of GroupOfTwo) =
            From value As Integer In constantValues
            Group By value.ToString("00").First Into Group
            Select New GroupOfTwo With
                       {
                         .First = Group(0),
                         .Last = Group(1)
                       }
 
        Dim sb As New System.Text.StringBuilder
        For Each group As GroupOfTwo In groups
            sb.AppendLine(String.Format("{0}, {1}", group.First, group.Last))
        Next group
 
        MessageBox.Show(sb.ToString, "Grupos de dos", MessageBoxButtons.OK)
 
    End Sub
 
End Class

C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\ProjectTemplates\VisualBasic\Windows\1033\WindowsApplication\

C:\Program Files (x86)\Microsoft Visual Studio 12.0\Common7\IDE\ProjectTemplatesCache\VisualBasic\Windows\1033\WindowsApplication\

...
  <ItemGroup>
    ...
    <Reference Include="System.Net" />
    ...
  </ItemGroup>
 
  <ItemGroup>
    ...
    <Import Include="System.IO" />
    <Import Include="System.Net" />
    ...
  </ItemGroup>
...

Namespace System.IO
 
    ...
    Class Path
 
        ...
        Public Shared Function GetFileName(ByVal path As String) As String
        ...
        End Function
        ...
 
    End Class
    ...
 
End Namespace

Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\scrfile\shell\open\command]
@="Notepad.exe \"%1\""