Sub txtadet_FocusChanged (HasFocus As Boolean)
Dim txt As TextField=Sender
If HasFocus=False Then
txtadet(txt.Tag).Text=txtadet(txt.Tag).Text.Replace(",",".")
kvsmycoins.Put(listmycoins.Get(txt.Tag),txtadet(txt.Tag).Text)
mycoinsdegerbul
End If
End Sub