I found it on the web. I found the sample code at
http://www.devx.com/getHelpOn/10MinuteSolution/20508/0/page/4
For anyone who needs it, here is my code....For DTSTART and DTEND the value
is yyyymmddThhmmssZ (greenwich time).
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim strFile As String
Dim strvCalendar
strFile = "BEGIN : VCALENDAR" & vbCrLf & _
"PRODID:-//Microsoft Corporation//Outlook 11.0 MIMEDIR//EN"
& vbCrLf & _
"VERSION:1.0" & vbCrLf & _
"BEGIN : VEVENT" & vbCrLf & _
"DTSTART:20041223T143000Z" & vbCrLf & _
"DTEND:20041223T150000Z" & vbCrLf & _
"LOCATION;ENCODING=QUOTED-PRINTABLE:IT Conference Room" &
vbCrLf & _
"DESCRIPTION;ENCODING=QUOTED-PRINTABLE:The team has voted to
have Turnover" & vbCrLf & _
"SUMMARY;ENCODING=QUOTED-PRINTABLE:Financial Call Team
Turnover Meeting" & vbCrLf & _
"PRIORITY:3" & vbCrLf & _
"End : VEVENT" & vbCrLf & _
"End : VCALENDAR"
Response.ContentType = "text/x-vCalendar"
Response.AddHeader("Content-Disposition", "filename=Event1" &
".vcs;")
Response.Write(strFile)
Response.End()
End Sub