Private
Sub
textboxvol_Change()
Application.EnableEvents =
False
If
TextBoxVol.Value
Like
"*,*"
Or
_
TextBoxVol.Value
Like
"*.*"
Then
Help$ = TextBoxVol.Value
If
DSep() =
"."
Then
TextBoxVol.Value = Replace(Help$,
"."
,
","
)
Else
TextBoxVol.Value = Replace(Help$,
","
,
"."
)
End
If
End
If
Application.EnableEvents =
True
End
Sub