msbox işlemi sorunu

[mehteroglu1]

herkese saygılarımla selamlıyorum ben böyle bir msgbox hazıeladım ama sayfayı kaplıyor bunu nası uzun satırları bir aşağı indirebilirim yani resimde görülenin yazdığım gibi görünmesini nasıl sağlarım


"BÜTÜN VERİLERİNİZİN SİLİNECEKTİR.
EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ.
EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ..."

 

[mehteroglu1]

eski görüntü aşagıdadır

resmi yüklemeyi unutmuşum aşagıda eski hali var

 

[Ali]

Sub mesajkutusu()
aciklama = "BÜTÜN VERİLERİNİZİN SİLİNECEKTİR" + Chr(13)
aciklama = aciklama + "EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ" + Chr(13)
aciklama = aciklama + "EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ..." + Chr(13)
MsgBox aciklama, vbOKCancel
End Sub

 

[mehteroglu1]

çok güzel

ellerinize sağlık çok güzel herkese saygılarımla

 

[mehteroglu1]

hocam ben buraya göre modifiye edemedim

baslik = "MEHMET TEYFİK MEHTEROĞLU UYARI!.."

b = MsgBox(" BÜTÜN VERİLERİNİZİN SİLİNECEKTİR. " + " EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ. " + " EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ...", vbOKCancel + vbExclamation, baslik)
If b = vbOK Then
Else
MsgBox ("İŞLEMİ İPTAL ETTİNİZ.")
exit sub




eğer buna göre modifiye edip verirseni memnun olurum

 

[Ali]

Sub mesajgöster()
baslik = "MEHMET TEYFİK MEHTEROĞLU UYARI!.."
aciklama = "BÜTÜN VERİLERİNİZİN SİLİNECEKTİR" + Chr(13)
aciklama = aciklama + "EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ" + Chr(13)
aciklama = aciklama + "EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ..." + Chr(13)
b = MsgBox(aciklama, vbOKCancel + vbExclamation, baslik)
If b = vbOK Then
Else
MsgBox ("İŞLEMİ İPTAL ETTİNİZ.")
Exit Sub
End If
End Sub

 

[mehteroglu1]

TeŞekkÜrler

Hocam TeŞekkÜr Ederİm Oldu

 

[excellium]

aciklama = "BÜTÜN VERİLERİNİZİN SİLİNECEKTİR" & Chr(13) _
& "EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ" & Chr(13) _
& "EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ..." & Chr(13)

bunu da kullanabilirsiniz.