existe uma função chamada weekday que pode ser utilizada para este tipo de comparação isto se tratando em dias da semana, os dias da semana são tratados como numero, começando com o domingo, então dom=1, seg=2 terça=3 qua=4 qui=5 sex=6 sab=7
para saber o dia da semana fazemos o seguinte
weekday(data)
então vamos á um código pra fazr o que você deseja:
no Load do form inclua o seguinte código:
Private Sub Form_Load()
dim Dia as integer
Dia=Weekday(Date)
Select case Dia
Case 3
txtsegunda.text=""
Case 4
txtterca.text=""
Case 5
txtquarta.text=""
Case 6
txtquinta.text=""
Case 7
txtsexta.text=""
Case 1
txtsabado.text=""
End Select
End Sub
veja se era isto
