Private Sub Form_Click()
 
  Text1.Text = Replace(Text1.Text)
 
End Sub
 
Private Function Replace(Text As String) As String
 
  Do While InStr(Text, ",") > 0
    Text = Left(Text, InStr(Text, ",") - 1) & "." & _
      Mid(Text, InStr(Text, ",") + 1)
  Loop
 
  Replace = Text
 
End Function

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.