Spanish Consulta sobre Punto Decimal

[CarlosR]

Buenas noches

Actualmente, estoy tratando de hacer una calculadora básica en Basic4Android; hasta ahora he logrado que funcione casi todo, las cuatro operaciones fundamentales, los botones de borrado total, parcial y retroceso; incluso logré que el cero no se repita al inicio de la entrada de datos, sólo se repite una vez ingresado el primer dígito. Sin embargo, en el caso del punto, no he logrado hacer que no se repita, todos los intentos que he realizado me arrojan error. Agradecería la ayuda de alguien me pudiera brindar para resolver este paso.

 

[Heppy]

Prueba con el metodo:

Sub EditText1_TextChanged (Old As String, New As String)
  i=New.IndexOf(".")
  If i>0 then editText1.Text=Old
End Sub

No lo he probado.