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