Dim StrEkdnsMsg1 As String
Dim StrEkdnsMsg2 As String
StrEkdnsMsg1 = MsgBox("Rehberine Numaranız Başarıyla Eklendi...",vbYesNo, "İŞLEM BAŞARILI")
StrEkdnsMsg2= MsgBox("Rehberine Numaranız Başarıyla Eklenemedi...","İŞLEM HATALI")
If StrEkdnsMsg1 = vbYes Then
Kayit.submit()
Else...