how to get "Teusday" from "30JUL02"

Try this:

Dim Temp As String
Dim MyDate As Date
Dim CurDay() As String
Temp = "30JUL02"
MyDate = Left(Temp, 2) & "-" & Mid(Temp, 3, 3) & "-" & Right(Temp, 2)
Temp = FormatDateTime(MyDate, vbLongDate)
CurDay = Split(Temp, ",")
MsgBox CurDay(0)

Convert it to 30/07/02 ,then call:

Dim mydate

mydate="30/07/02"
Format(MyDate,"Long Date")

To jayeshshah:
Remember that the format is "30JUL02".
Cheers.

thanks but sorry input output wrong and and almost working answer b4 yours.

hes 0 was month/day and 1 was year could not make work for day of week.

oops that was u thanks

oops that was u thanks

What ?
You accepted jayeshshah's wrong answer ?

WeekdayName was preffered hes, sorry.
Also your code like mine errs on some diff date setting other then north america.