yada modüle gerek yok klasik for döngüsüyle
güncelleme ve kaydete eklenecek kod

        Degr = TextBox_Gsm.Value

        For x = 1 To Len(Degr & "")

            If IsNumeric(Mid(Degr, x, 1)) Then DegrSon = DegrSon & Mid(Degr, x, 1)

        Next x

        .Cells(Guncelle, 30) = "+90" & DegrSon