Thay đổi dấu chấm thành dấu phẩy và ngược lại trong UDF

Tôi có UDF Excel này để loại trừ tất cả các ký tự không phải là số từ một ô, ngoại trừ dấu chấm và dấu phẩy; Nhưng trước khi nó xóa số của tôi, tôi muốn thay đổi tất cả các dấu phẩy thành dấu chấm và ngược lại. Tôi không biết nơi nào để thực hiện thay đổi này trong mã của tôi. Cảm ơn

Function cleannumber(texto As String) As String 
Dim volta As String 
Dim pedaco As String 

volta = "" 
For i = 1 To Len(texto) 
   pedaco = Mid(texto, i, 1) 
   If pedaco >= "0" And pedaco <= "9"  Or pedaco = “,” Or pedaco =”.” Then volta = volta & pedaco 
Next i 
cleannumber = volta 
End Function

Trước khi Iftuyên bố:

pedaco = Replace(pedaco, ".", "whatever")
pedaco = Replace(pedaco, ",", ".")
pedaco = Replace(pedaco, "whatever", ",")

Mã sửa đổi:

Function cleannumber(texto As String) As String 
Dim volta As String 
Dim pedaco As String 

volta = "" 
For i = 1 To Len(texto) 
   pedaco = Mid(texto, i, 1) 

   // Add the below line
   pedaco = Replace(pedaco, ",", ".")

   If pedaco >= "0" And pedaco <= "9"  Or pedaco = “,” Or pedaco =”.” Then volta = volta & pedaco 
Next i 
cleannumber="'" & volta
End Function