Dividir datos de Textbox

Muy buenas, vereis tengo una aplicación que realiza una monitorización de
unos servidores por dirección IP, y ahora la estoy depurando.

Tengo un textbox (donde se introduce la dirección IP), el cual solo admite
numeros y "." y ahora lo que quiero es que al validar en el evento
Validating, me coja las 4 partes de la dirección IP y comprobar que esta
dentro del rango permitido menor o = cada parte a 255.
El codigo que tengo en el evento es el siguiente:

Private Sub txtIP_Destino_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles txtIP_Destino.Validating
Dim Divisor As String
Dim p As Integer
Dim Partes As String()
Dim texto As String
Dim n As Byte = 0
Divisor = "."
p = txtIP_Destino.Text.IndexOf(".")
Partes = txtIP_Destino.Text.Split(".") ',
txtIP_Destino.Text.IndexOf("."))
For Each texto In Partes(n)

MessageBox.Show(Partes(n))
n = n + 1
Next
End Sub

Pero al ejecutar esto me da las 2 primeras partes correctas, y la tercera

la da junto con la cuarta,(ejemplo: 234.123)

Que hago mal??

Gracias