Private Sub Form_Load()
   Dim ErgArray As Variant
   Dim Feld(3) As String
   Feld(0) = "Test"
   Feld(1) = "Test"
   Feld(2) = vbNullChar
   Feld(3) = "test"
 
   ErgArray = Filter(Feld, vbNullChar, True)
 
   If UBound(ErgArray, 1) < 0 Then
      MsgBox "Alle Felder belegt"
   Else
      MsgBox "Das Feld enthält " & Str(UBound(ErgArray, 1)) & " Einträge"
   End If
End Sub