Generar Codigo aleatorio VB.NET

Private Function genearCodigoAleatorio()
Try
   Randomize()

   Dim numGenerar(9) As Integer
   Dim i As Integer
   Dim starIndex As Long
   Dim aleaotorio As New Random

   Dim obj As Object

   For i = 0 To 9
     numGenerar(i) = i
   Next

   For i = 0 To 9
       starIndex = aleaotorio.Next(0, 9)
       obj = numGenerar(i)
       numGenerar(i) = numGenerar(starIndex)
       numGenerar(starIndex) = obj
   Next
   Return numGenerar
Catch ex As Exception
   Return False
End Try
End Function

Public Function codigoGenerado()
Try
    Dim array As Object = genearCodigoAleatorio()
    Dim codigo As String
    'MsgBox("JASS" & (array(0) & array(1)))
    codigo = (array(0) & array(1) & array(2) & array(3) & array(4) & array(5) & array(6) & array(7) & array(8))
    Return codigo
Catch ex As Exception
     Return False
End Try
       
End Function