Imports System

Imports System.Linq

Imports Microsoft.VisualBasic

Public Module Module1

​

    Sub Main

        Console.Write(DogShow(7, 115))

    End Sub

​

    Function DogShow(placing As Integer, Optional places As Integer = 100) As String

        Dim fn = Function(n As Integer) If(n < 4, {"th", "st", "nd", "rd"}(n), "th")

        Return Join(Enumerable.Range(1, places).Where(Function(x) x <> placing).Select(Function(x) x & If((x Mod 100) < 14, fn(x Mod 100), fn(x Mod 10))).ToArray, ", ")

    End Function

End Module