Colocar puntos y coma al valor double

Aquí te dejo un código con una solución a lo que me pides. Espero que te inspire. Un saludo.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = ""
Dim b As String = ""
Dim c As String = ""
Dim resultado As String = ""
Dim i, j, numero As Double
b = TextBox1.Text
For i = 0 To b.Length
If (b(i) <> "." And b(i) <> ",") Then
a = a + b(i)
Else
Exit For
End If
Next
i = i + 1
For j = i To b.Length - 1
If b(j) <> "." Then
c = c + b(j)
Else
Exit For
End If
Next
' aqui tenemos separada la parte entera de la decimal
numero = Convert.ToInt64(a)
If a.Length > 3 Then
i = a.Length - 1
While i > a.Length - 4
resultado = a(i) + resultado
i = i - 1
End While
resultado = "," + resultado
While i >= 0
resultado = a(i) + resultado
i = i - 1
End While
End If
If a.Length > 6 Then ' si hay millones(contando con la coma añadida)
b = resultado
i = b.Length - 5
resultado = ""
While i > b.Length - 8
resultado = b(i) + resultado
i = i - 1
End While
resultado = "." + resultado
While i >= 0
resultado = b(i) + resultado
i = i - 1
End While
End If
If a.Length > 6 Then
resultado = resultado + b(4) + b(5) + b(6) + b(7) + "." + c
Else
resultado = resultado + "." + c
End If
'resultado = resultado + "," + c
TextBox2.Text = resultado