Berduş hocamızın dediği gibi hunctionlada her yerden çağılabilir.
Array içine istediğiniz şeyleri ekleyebilirsiniz hangileri değişecekse.

        

        Dim arr, deg

        arr = Array(")", "(", "-", " ")

        For Each deg In arr

            TextBox_Gsm.Value = Replace(TextBox_Gsm.Value, deg, "")

        Next

      .Cells(SonSatir, 30).NumberFormat = "@"

      .Cells(SonSatir, 30) = "+90" & TextBox_Gsm.Value

https://resim.accesstr.net/do.php?img=11033