Imports System
Public Class Program
Public Shared Function findSmallestMissingNumber(ByVal arr As Integer()) As Integer
Dim min As Integer = arr(0)
Dim size As Integer = arr.Length
For i As Integer = 1 To size - 1
If arr(i) > min + 1 Then
Return min + 1
Else
min = arr(i)
End If
Next
Return -1
End Function
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {18, 19, 20, 27, 33, 36, 40, 42}
Console.Write(findSmallestMissingNumber(arr))
End Sub
End Class
' run:
'
' 21
'