Kod:
Private Sub Komut62_Click()
Dim i As Byte
Dim a As String
Dim arr1, arr2
arr1 = Array("Adi", "Soyadi", "Kimlik", "il", "ilce", "Mahalle")
arr2 = Array("Metin1", "Metin2", "Metin3", "Metin72", "Metin74", "Metin71")
For i = LBound(arr2) To UBound(arr2)
If Me.Controls(arr2(i)) = "" Or IsNull(Me.Controls(arr2(i)) = "") Then
a = a & arr1(i) & vbNewLine
End If
Next
MsgBox "AÞAÐIDAKÝ ALANLAR BOÞ BIRAKILMIÞ...." & vbNewLine & "-----------------" & vbNewLine & a
Erase arr1
Erase arr2
End Sub