Formu tasarım görünümünde aç, vb sayfasına aşağıdaki kodu ekle

Function EnKucuk(ParamArray alanlar() As Variant)

   Dim a As Integer

   Dim deger As Variant

   deger = alanlar(0)

   For a = 0 To UBound(alanlar)

      If alanlar(a) < deger Then

         deger = alanlar(a)

      End If

   Next a

   EnKucuk = deger

End Function

Forma komut butonu ekle ve tıklandığında olayına

Me.Metin6 = EnKucuk([Metin0], [Metin2], [Metin4])

Kodunu yaz.