replace ile belki çok daha kolay olurdu))
önce bir modüle aşağıdaki fonksiyon eklenip

Function SadeSayi(ByVal Veri As String) As String

    Dim matches As Variant, match As Variant

    Dim Reg_Exp As Object



    Set Reg_Exp = CreateObject("vbscript.regexp")



Reg_Exp.Pattern = "\d"

Reg_Exp.Global = True

        Set matches = Reg_Exp.Execute(Veri)

        If matches.Count > 0 Then

            For Each match In matches

                Degr = Degr & match.Value

            Next match

        End If

SadeSayi = "+90" & Degr

End Function

sonrada güncelleme ve kaydetmeye aşağıdaki kodu ekleyip dener misiniz?

        .Cells(Guncelle, 30) = SadeSayi(TextBox_Gsm.Value)