ö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)