txtsistema.Text = Format(Now, "dd/mm/yyyy")
txtdataincial.Text = "01/" & Format(Date, "mm/yyyy")
txtdatafinal.Text = "30/" & Format(Date, "mm/yyyy")
Como nem todos os meses tem 30 dias, você terá que colocar um tratamento de excessão:
Private Function UltimoDia(ByVal dt As Date) As Integer
UltimoDia = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(Year(dt), Month(dt), 1))))
End Function
txtdatafinal.Text = UltimoDia(CDate(Date)) & "/" & Format(Date, "mm/yyyy")
