Private Sub Komut14_Click()

Dim tr1, tr2, tr3 As Date



tr1 = Me.Metin0.Value

tr2 = Me.Metin2.Value

tr3 = Me.Metin4.Value



If tr3 > tr1 And tr3 < tr2 Then

MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK"

'Şart msağlandığında yapılacak işlemler

Me.Liste12.AddItem (tr3)

Else

MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK ŞARTI SAĞLANMIYOR"

'Şart sağlanmadığında yapılacak işlemler.

End If

End Sub

konu eski fakat ilave etmek istedim.