How do I find next Tuesdays Date?

GoDogGo

I need code to find the date of the first Tuesday that follows todays date.

dokken2

: I need code to find the date of the first Tuesday that follows
: todays date.
:
Dim Today As Date
Dim i As Integer

Today = Date

'loop thru 7 days of week
For i = 0 To 6
'datepart for weekday, 1=sun, 7=sat
If DatePart("w", Today + i) = 3 Then
MsgBox Today + i & " is next Tuesday"
Exit For
End If
Next

GoDogGo

: : I need code to find the date of the first Tuesday that follows
: : todays date.
: :
: Dim Today As Date
: Dim i As Integer
:
: Today = Date
:
: 'loop thru 7 days of week
: For i = 0 To 6
: 'datepart for weekday, 1=sun, 7=sat
: If DatePart("w", Today + i) = 3 Then
: MsgBox Today + i & " is next Tuesday"
: Exit For
: End If
: Next
:

Much Thanks!
Exactly what I've been looking for.