Tvungen seperator

Denne her gør det ikke muligt at indtaste . i textbox1 :

Private Sub TextBox1_Change()
Dim a, b, mypos
a = TextBox1.Text
b = "."
mypos = InStr(1, a, b, 1)
If mypos > 0 Then
MsgBox ("Komma skal bruges")
Application.SendKeys ("{BS}")
End If
End Sub

kan gøres kortere

If Right(TextBox1.Text, 1) = "," Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) & "."
End If
End Sub

der manglede lige øverste linie

Private Sub TextBox1_Change()

Ja det må jeg jo sige er kortere - og man sparer et kommatast. Så vi ender med :

Private Sub TextBox1_Change()
If Right(TextBox1.Text, 1) = "." Then
MsgBox ("Komma skal bruges")
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) & ","
End If
End Sub

behøver bruger at blive advaret, når den selv skifter ?

Nej, men spørger vil da vist gerne have det. Ellers kan han jo slette den. Iøvrigt skulle punktum og ikke komma erstattes. Alt i alt synes jeg at en yderligere kommentar var OK.

Det med advarslen er nyttigt hvis brugeren er fra lande hvor punktum er seperator, programmet skal hole styr på slitage på wire der holder op til 1 million pund! jeg ville nok ikke selv have tillid til et program der uden videre ændrede sperator uden at fortælle mig hvorfor.
I får tusind tak for hjælpen.
aheiss skal vist have points, men som sædvanlig er dine kommentarer meget værdsat kabbak.

aheiss, vil du sende er svar, så får du point.

Her et svar:-)
Og ja - det er værdsat med yderligere kommentarer og svar så de bedste løsninger kommer frem !