Visual Basic - Ordenar una Cadena

Como puedo hacer para ordenar alfabeticamente una cadena de texto
Ejemplo: HOLAMUNDO, quede asi : ADHLMNOU y no aparezcan las letras repetidas.

Gracias

Dim i
Dim tmpVar As String
Dim found As String

'Obtener Cadena a Ordenar
strinvertir = Text1.Text
' Valor decimal ASCII de la "A" a la "Z"
For i = 65 To 90
'Buscar la letra
found = InStr(1, strinvertir, Chr(i), vbTextCompare)
'Si se encuentra agregar a variable
If found Then
tmpVar = tmpVar & Chr(i)
End If
Next i
'Regresar resultado aun textbox
Text2.Text = tmpVar

Espero k esto te sirva...