Helt sannslöst jag råkade trycka Delete när jag skulle Editer i inlägget om detta ämne.
Jag är Moderator så det är väl Ok Men ! det måste komma en varning.

Hur som helst här kommer mitt senaste svar. Olas inlägg försvann, vänligen kom tillbaka.
<code>
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Normalt bör du tillåta dessa tecken tillsammans med siffror
'BackSpace, Tab, Enter, Komma, Minustecken, Punkt och 0 - 9
Select Case KeyAscii
Case 8, 9, 13, 44, 45, 46, 48 To 57
' Tillåt
'här byter du sida på 44 och 46 efter önskemål ,komma(,) punkt(.)
If KeyAscii = 46 Then KeyAscii = 44
' så här bör det vara konsekvent
' If KeyAscii = 44 Then KeyAscii =46
Case Is = 22 'användaren klistrar in Ctrl+V
If IsNumeric(Clipboard.GetText) Then _
Text1.Text = Replace(Clipboard.GetText, ".", ",")
Case Else
KeyAscii = 0
End Select
End Sub
</code>
Huvudbudskapet är att du måste hålla en konsekvent linje i all Vb mattematik Punkt eller Komma

Jag vidhåller att Punkt(.) är det rätta.VB är byggt kring Punkt
När du utför mattematiken använd (.) När du presenterar resultat visuellt gör som du tycker.
Använd
<code>
Val(stringexpression) 'när du omvandlar en sträng till ett tal.
</code>
Man delar kod runt hela världen så man får inte kolla snävt på hur Vi gör i Sverige EU
Mitt exempel ger dig valfrihet Men ! var konskvent annars vet du snart inte var du har "röven"

Ola hade invändningar så han eller någon annan får återkomma. Mitt fel Pardon!
Ola verkade inte ha riktigt koll på hur komplicerat det här är.

Can't win them all .Sitt där och riv Er i huvudet med mattematik och Komma(,) . Jag kör bara med Punkt(.) Punkt:-)
<code>
Dim MinVariabel As Single
'Försök att skriv
MinVariabel = Sin( 1,12)
</code>