How to generate 6 digits continuous numbers in VB.net?

Imports System.Linq

Namespace ConsoleApplication1
	Class Program
		Private Shared Sub Main(args As String())
			Dim str = GenerateContinuousCode()
		End Sub

		Public Shared Function GenerateContinuousCode() As String
			Return New String(Enumerable.Repeat("0123456789", 6).[Select](Function(s) s(New Random().[Next](s.Length))).ToArray())

		End Function
	End Class
End Namespace