DAY(textstart.value) will be numeric so just:

IF  day(txtstart.value)= 1

is all that's needed

HTH,
Viv

>how i can write this code under via correct way ?
>

>Add Object txtstart As TextBox With ;
>    Value = (Date()), Left = 80, Top = 115, Width = 100
>  Add Object cmdCalculate As CommandButton With ;
>    Top = 145, Left = 80, Caption = "Go"
>  Add Object grddistribution As Grid With ;
>    Height = 280, Left = 190, Top = 5, Visible = .F., Width = 280
>
>    ****************************************************************
>IF  day(txtstart.value)=01 or 1 &&
>.
>.
>endif
>

>
>thanks.