(08/01/2021, 21:34)feraz yazdı: Normalde okla gösterdiğim yerler tersi  olmalı.
Resimdeki gibi deneyin.

 Dim cevap As String

cevap = bytRetData



Dim ilkKarakter As String

ilkKarakter = Left$(cevap, 1)

If ilkKarakter = "1" Then

MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"

Else

MsgBox "SMS Gönderimi BAŞARISIZ.!"

End If

Set oXmlHttp = Nothing

Debug.Print smsNN  

Hocam buradaki kısım hatalı görünüyor.