iki metin kutusundan biri boş ise uyarı versin kodu

Merhaba arkadaşlar daha düzgünü var mı diye baktığımda forumda göremediğim bir kodu paylaşmak istedim 

bu kod yapısında a veya b metin kutusu içerisinde ki verilerden biri dolu olduğu durumlarda işleme devam ediyor mevcut örneklerin hepsi hem a hem b boş değilse şeklinde oldugu için paylaşmak istedim basit bir şey ama iş görüyor

umarım yanlış yere açmamışımdır konuyu

Visual Basic

If IsNull([a]) Then
alan1=0
Else
alan1=1
End If
 
If IsNull([b]) Then
alan2=0
Else
alan2=1
End If
 
kontrol= alan1+alan2
If kontrol<1 Then
MsgBox ("Boş kutucukları doldurun")
Else
 
kayıt kodlarınızı yazarsınız kayıt yapar
 
 
End If

paylaşımınız için teşekkürler...