Em qual linguagem de programação o algoritmo de ordenação por inserção exibido abaixo foi escrito?

Private Sub Ordenacao(Numeros()As Integer)
Dim iAs Long
Dim jAs Long
Dim iMinAs Long
Dim iMaxAs Long
Dim varSwapAsVariant
iMin = LBound(Numeros) + 1
iMax = UBound(Numeros)
For i = iMinTo iMax
varSwap = Numeros(i)
For j = iTo iMin Step -1
If varSwap < Numeros(j - 1)
Then Numeros(j) =Numeros(j - 1)
Else Exit For
Next j
Numeros(j) = varSwap
Next i
End Sub