Visual Basic - Contar puntos

Hola tengo un pequeño problema con mi programa.
El programa se supone que debe de contas los puntos que se le insertan en las cajas de texto y los cuenta biien pero cuando pones alguna letra o numero antes del punto no los cuenta si alguien me puede ayudar se lo agradecere mucho.
aqui esta el codigo que esoy usando :

Private Sub Text1_Change()
Dim Caracter As Integer
Static Contar As Integer

For Caracter = 1 To Len(Text1.Text)
If Mid(Text1.Text, 1, Car) = "." Then
Contar = Contar + 1
End If
Next Car

If COntar > 5 Then
Text1.Text = "Tienes " & COntar & "puntos"
COntar = 0
End If
End Sub

¿Tiene que ser en el evento Change()?, parece mas sencillo hacerlo en el KeyPress() o KeyDown().Ej.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Static contar As Integer
If KeyCode = 110 Then contar = contar + 1
If contar > 5 Then
Text1.Text = "Tienes " & contar & "puntos"
contar = 0
End If
End Sub
Espero que te sirva. Saludos

Si me sirvio muchas gracias por su ayuda