I need to create a Console Application that can re order any given string into alphabetical order, I have very little code so far but I believe I need to use 'Bubble Sort' at some stage, please help. The code I already have is below.

Module Module1
Dim alphabetArray = New String(25) {}
Dim userstring = New String(5) {}
Dim userasalpha = New String(userstring.Len) {}

Sub Main()
'dragon, is a good example word'

For intLoop = 1 To 26
alphabetArray(intLoop, 1) = 'Char'(96 + intLoop)

Console.WriteLine("Enter a string of letters, Maximum six... ")
userstring = Console.ReadLine()

End Sub

End Module