Foros del web, para los que viven de bits

Dim farray() As String
Dim dat As String

Fecha.Text = Date 'este campo tendria algo como 04/17/2008
dat = Fecha.Text 
farray = Split(dat, "/") 'farray los separa por el "/" que seria el delimitador

If farray(1) > 20 Then 'farray(1) tendria el 17
MsgBox "Esta prevision estara disponible para el mes siguiente", vbInformation, "Fecha de creacion..."

' aqui es donde viene la pregunta, como ago q si lo q obtengo del campo del array es mayor que 20 entonces, 

fecha.text = ' al primer dia del MES siguiente con el mismo formato de "mm/dd/yyyy"

endif

 
Fecha.Text = Date
If Day(Date) > 20 Then
     Fecha.Text = DateSerial(Year(Date), Month(Date) + 1, 1)
End If

 
' Colocamos la fecha actual en el Textbox "Fecha"
Fecha.Text = Date
' Si el día de hoy es mayor que 20 entonces...
If Day(Date) > 20 Then
     ' DateSerial(Año, Mes + 1, Día 1)
     Fecha.Text = DateSerial(Year(Date), Month(Date) + 1, 1)
     ' DateSerial es para que por ejemplo cuando Mes + 1 sea 13 cambie el año...
End If