Metodos de ordenamiento Burbuja-Seleccion-Insercion VB.Net

Publico esto, ya que haciendo una tarea de la universidad me costo bastante trabajo conseguir estos codigos para Visual Basic .Net

Public Class Form1

Dim Datos(9) As Integer
Dim Temp, a, b As Integer
Dim Temp2, minimo, i, j As Integer
Dim k, l, index As Integer

Private Sub BTNCARGAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Datos(0) = TXTDATO1.Text
Datos(1) = TXTDATO2.Text
Datos(2) = TXTDATO3.Text
Datos(3) = TXTDATO4.Text
Datos(4) = TXTDATO5.Text
Datos(5) = TXTDATO6.Text
Datos(6) = TXTDATO7.Text
Datos(7) = TXTDATO8.Text
Datos(8) = TXTDATO9.Text
Datos(9) = TXTDATO10.Text
End Sub

Private Sub BTNORDENAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNORDENAR.Click

'Metodo BURBUJA
If RBTBURBUJA.Checked = True Then

Datos(0) = TXTDATO1.Text
Datos(1) = TXTDATO2.Text
Datos(2) = TXTDATO3.Text
Datos(3) = TXTDATO4.Text
Datos(4) = TXTDATO5.Text
Datos(5) = TXTDATO6.Text
Datos(6) = TXTDATO7.Text
Datos(7) = TXTDATO8.Text
Datos(8) = TXTDATO9.Text
Datos(9) = TXTDATO10.Text

For b = 0 To 8
For a = 0 To 8

If Datos(a) > Datos(a + 1) Then 'con solo cambiar el < se puede cambiar el orden
Temp = Datos(a + 1)
Datos(a + 1) = Datos(a)
Datos(a) = Temp
End If
Next
Next

TXTDATOOUT1.Text = Datos(0)
TXTDATOOUT2.Text = Datos(1)
TXTDATOOUT3.Text = Datos(2)
TXTDATOOUT4.Text = Datos(3)
TXTDATOOUT5.Text = Datos(4)
TXTDATOOUT6.Text = Datos(5)
TXTDATOOUT7.Text = Datos(6)
TXTDATOOUT8.Text = Datos(7)
TXTDATOOUT9.Text = Datos(8)
TXTDATOOUT10.Text = Datos(9)

End If

'Metodo INSERCION
If RBTINSERCCION.Checked = True Then

Datos(0) = TXTDATO1.Text
Datos(1) = TXTDATO2.Text
Datos(2) = TXTDATO3.Text
Datos(3) = TXTDATO4.Text
Datos(4) = TXTDATO5.Text
Datos(5) = TXTDATO6.Text
Datos(6) = TXTDATO7.Text
Datos(7) = TXTDATO8.Text
Datos(8) = TXTDATO9.Text
Datos(9) = TXTDATO10.Text


For i = 1 To 9
index = Datos(i)
j = i - 1
Do While (j >= 0)
If index > Datos(j) Then
Exit Do
Else
Datos(j + 1) = Datos(j)
j = j - 1
End If
Loop
Datos(j + 1) = index
Next i


TXTDATOOUT1.Text = Datos(0)
TXTDATOOUT2.Text = Datos(1)
TXTDATOOUT3.Text = Datos(2)
TXTDATOOUT4.Text = Datos(3)
TXTDATOOUT5.Text = Datos(4)
TXTDATOOUT6.Text = Datos(5)
TXTDATOOUT7.Text = Datos(6)
TXTDATOOUT8.Text = Datos(7)
TXTDATOOUT9.Text = Datos(8)
TXTDATOOUT10.Text = Datos(9)

End If


'Metodo SELECCION
If RBTSELECCION.Checked = True Then

Datos(0) = TXTDATO1.Text
Datos(1) = TXTDATO2.Text
Datos(2) = TXTDATO3.Text
Datos(3) = TXTDATO4.Text
Datos(4) = TXTDATO5.Text
Datos(5) = TXTDATO6.Text
Datos(6) = TXTDATO7.Text
Datos(7) = TXTDATO8.Text
Datos(8) = TXTDATO9.Text
Datos(9) = TXTDATO10.Text

For i = 0 To 8
minimo = i
For j = i + 1 To 9
If Datos(minimo) > Datos(j) Then
minimo = j
End If
Next j
Temp2 = Datos(i)
Datos(i) = Datos(minimo)
Datos(minimo) = Temp2

Next i

TXTDATOOUT1.Text = Datos(0)
TXTDATOOUT2.Text = Datos(1)
TXTDATOOUT3.Text = Datos(2)
TXTDATOOUT4.Text = Datos(3)
TXTDATOOUT5.Text = Datos(4)
TXTDATOOUT6.Text = Datos(5)
TXTDATOOUT7.Text = Datos(6)
TXTDATOOUT8.Text = Datos(7)
TXTDATOOUT9.Text = Datos(8)
TXTDATOOUT10.Text = Datos(9)

End If

End Sub

Comentar es agradecer..