limite en textbox

[SheKeL_C$]

Estaba haciendo un textbox en el q acepte una ip
es decir q solo acepte numeros y puntos lo q pasa es q no tiene llimite, m gustaria limitarlo no por el espacio q ocupa xq cada ip puede tener algun numero mas o menos.
quiero limitarlo por los puntos q tiene "  .  ", q solo acepte 3, d momento tengo esto:

Código [Seleccionar] Expandir

tamaño = Len(Text1.Text)
b = 0
For a = 0 To tamaño
    If Left(Text1.Text, a) = "." Then
        b = b + 1
    End If
Next

If b = 3 Then MsgBox "tan 3 puntos"

No s en q falla, en alguna tonteria seguro,q l voy a acer soy un negao pa esto xD, pero quiero aprender 

[Ironhorse]

O si no podrias usar el control MaskEdBox con esta mascara:
###.###.###.###

saludos

[SheKeL_C$]

Cuando lo pongo en el codigo no m lo reconoce como un comando  , m podrias decir como quedaria??

gracias

[APOKLIPTICO]

Tendrias que hacer click derecho en el menu de controles, luego "componentes" y agregar el control "Microsoft Masked Edit Control 6.0" y listo, en la mascara pones "###.###.###.###" como decia Ironhorse.

[SheKeL_C$]

OK, gracias 

Salu2