Birden çok "if" işlemini kodlamasını sadeleştirmek

[girdap]

Selamlar,

Aşağıdaki kodu kısaltmanın yolu varmı, yani birden çok textbox veyacombobox'ın olduğu bir alanda tümüne aynı işlmi yaptırmak için mesela aynı mesayı görüntületmek için nasıl bir yol takip edilebilmektedir?
Saygılarımla
If ComboBox18.Value = "" Then
MsgBox "Kaynak alanı,Firma Adı, Proje Adı ve İlgili Adı Alanları; doldurulması zorunlu alanlardır", vbCritical
Exit Sub
ElseIf TextBox4.Value = "" Then
Columns("E:E").Select
MsgBox "Kaynak alanı,Firma Adı, Proje Adı ve İlgili Adı Alanları; doldurulması zorunlu alanlardır", vbCritical
Exit Sub
ElseIf TextBox4.Value = "" Then
Columns("E:E").Select
MsgBox "Kaynak alanı,Firma Adı, Proje Adı ve İlgili Adı Alanları; doldurulması zorunlu alanlardır", vbCritical
Exit Sub

 

[uzmanamele]

merhaba
sub
if
goto 10
else if
goto 10
else if
goto 10 MsgBox"mesaj"
end sub

şeklinde deneseniz olur mu acaba?

 

[girdap]

Deneyeceğim, çok teşekkür ederim, iyi yıllar
Saygılar.