AlfaNumeric bir alanda 120.001.0001 gibi hesap kodlarında noktaları yok sayarak 1200010001 haline getirmek istiyorum. Daha önce bana önerilen aşağıdaki fonction'u kodlama ortamına nasıl oturtabilirim?

Public Function Trz(bb As String)
Dim i As Integer
Dim index As Integer
Dim Count As Integer
Dim FoundByAscii(0 To 255) As Boolean
Set bb = Me.HesapKodu
For i = 1 To Len(bb)

If Not IsNumeric(Mid(bb, i, 1)) Then Trz = Mid(bb, i + 1)
Next

End Function