gistfile1.vb

If mydate Like "*[abcdefghijklmnopqrstuvwxyz/-" & Chr(150) & "]*" Then
                   mydate = Replace(Replace(mydate, "January", "01"),
"Jan", "02")
                   mydate = Replace(Replace(mydate, "Feburary",
"02"), "Feb", "02")
                   mydate = Replace(Replace(mydate, "March", "03"),
"Mar", "03")
                   mydate = Replace(Replace(mydate, "April", "04"),
"Apr", "04")
                   mydate = Replace(mydate, "May", "05")
                   mydate = Replace(Replace(mydate, "June", "06"), "Jun", "06")
                   mydate = Replace(Replace(mydate, "July", "07"), "Jul", "07")
                   mydate = Replace(Replace(mydate, "August", "08"),
"Aug", "08")
                   mydate = Replace(Replace(mydate, "September",
"09"), "Sep", "09")
                   mydate = Replace(Replace(mydate, "October", "10"),
"Oct", "10")
                   mydate = Replace(Replace(mydate, "November",
"11"), "Nov", "11")
                   mydate = Replace(Replace(mydate, "December",
"12"), "Dec", "12")
                   mydate = Replace(mydate, "sum", "07")
                   mydate = Replace(Replace(Replace(mydate, "/", ""),
"-", ""), Chr(150), "")
                   mydate = Replace(mydate, " ", "")
                   mydate =
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(mydate,
"a", ""), "b", ""), "c", ""), "d", ""), "e", ""), "f", ""), "g", ""),
"h", ""), "i", ""), "j", ""), "k", ""), "l", ""), "m", ""), "n", ""),
"o", ""), "p", ""), "q", ""), "r", ""), "s", ""), "t", ""), "u", ""),
"v", ""), "w", ""), "x", ""), "y", ""), "z", ""), ".", "")
               End If