MsgBox ile ikinci mesaj?

Merhaba arkadaşlar,

Amatör olarak visual basic ile uğraşıyorum.
Takıldığım bazı yerler var burada yardım edebileceğinizi düşündüm.
Sorunum;

Örmeğin forma bir command button yerleştirdik ve:

Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
End Sub

Kodunu girdik. Forum açıldığında butona tıkladığımız zaman bir hata mesajı veriyor. Ona "ok" dedikten sonra o hata mesajı kapanıyor. Benim istediğim butona ikinci kez tıkladığımızda farklı bir mesaj çıkması.

Yardımlarınız için teşekkürler...

sana basit bi algoritmayla yardım edebilirm baska yollarıda vardır ama aklıma bu geldi simdi.bi control koyarsın mesela.basic dilini cok fazla bilmedigim icin yazdıgım kod diger dillere kayabilir:)
dim control as integer
control=0

Private Sub Command1_Click()
if control=0 then
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
control=1
else
MsgBox"2. mesaj"
control=0
end if
End Sub

kodum tam anlamıyla calısmayabilir ama umarım mantıgını anlatabilmisimdir.bu kod calısırsa bi birinci mesajı bi 2. mesajı verir.bu tür algoritmayla istegin kadar mesaj verdirebilrisn.

Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
If reply = ok Then
MsgBox ("istediğin mesajı yaz")
End If
End Sub
'sadece bu kadar

eraser28

Private Sub Command1_Click()
MsgBox "Birinci Mesaj", vbCritical, "Önemli"
If reply = ok Then
MsgBox ("istediğin mesajı yaz")
End If
End Sub
'sadece bu

Yukarıdaki kod çalışmaz, çalışsa da istediğin şe değil zaten.. İstediğini aşağıdaki kodla yapabilirsin, ben 7 tane hata mesajı belirttim, çoğaltabilirsin..
_________________________

Dim Sira As Integer
Dim mesaj As String

Private Sub Command1_Click()

Sira = Sira + 1

Select Case Sira
    Case 1: mesaj = "hata mesajın 1"
    Case 2: mesaj = "hata mesajın 2"
    Case 3: mesaj = "hata mesajın 3"
    Case 4: mesaj = "hata mesajın 4"
    Case 5: mesaj = "hata mesajın 5"
    Case 6: mesaj = "hata mesajın 6"
    Case 7: mesaj = "hata mesajın 7"
End Select

MsgBox (mesaj), vbCritical

End Sub

Private Sub Form_Load()
Sira = 0
End Sub