Imports System
Imports System.Linq
Public Class Program
Public Shared Function GenerateSpecificRandomPassword(ByVal length As Integer, ByVal chars As String) As String
Dim rnd As Random = New Random()
Return New String(Enumerable.Repeat(chars, length).Select(Function(s) s(rnd.Next(s.Length))).ToArray())
End Function
Public Shared Sub Main()
Dim length As Integer = 5
Dim password As String = GenerateSpecificRandomPassword(length, "ABCDEFGhijkm!@#$&")
Console.WriteLine(password)
End Sub
End Class
' run:
'
' ii!k$
'