.NET Fiddle

VbNet · Console

/Program.vb

Imports System
Imports System.Collections.Generic
Imports Microsoft.VisualBasic

Public Module Module1
	Public Sub Main()
		
	Dim iRand As Integer	
	Dim RAND As New List(of String)
		
	RAND.Add("A")
    RAND.Add("B")
    RAND.Add("C")
    RAND.Add("D")
    RAND.Add("E")
    RAND.Add("F")
    RAND.Add("G")
    RAND.Add("H")
    RAND.Add("I")
    RAND.Add("J")
    RAND.Add("K")
    RAND.Add("L")
    RAND.Add("M")
    RAND.Add("N")
    RAND.Add("O")
    RAND.Add("P")
    RAND.Add("Q")
		
		Randomize
		
		Do While RAND.Count > 0
			iRand = Math.Floor(Rnd(1)*RAND.Count)
			Console.writeline(RAND(iRand))
			RAND.RemoveAt(iRand)
		Loop
		
		
		
		
		
	End Sub
End Module