VB - Zufälligen Zahlencode generieren

Public Function CreateKey(KeyLeth As Integer, NumberRange As Integer)
' NumberRange nicht größer als 9 und nicht kleiner als 0
Dim Creator As new Random 
Dim Code As String = ""
if(NumberRange < 10 and NumberRange > -1)
For i As Integer = 0 To KeyLeth Step 1
Code += Creator.Next(1,NumberRange + 1)
Next
End If
Return Code

End Function