CALLING THE FUNCTION
 FullDateString(Cstr("12/31/2005")

THE FUNCTION
Function FullDateString(datestring As String) As String
	
	Set newdate = New NotesDateTime(datestring)
	Dim MonthInteger As Integer
	MonthInteger = Month(newdate.lslocaltime)
	Dim MonthText As String
	Select Case MonthInteger
	Case 1    : MonthText = "January"
	Case 2    : MonthText = "February"
	Case 3    : MonthText = "March"
	Case 4    : MonthText = "April"
	Case 5    : MonthText = "May"
	Case 6    : MonthText = "June"
	Case 7    : MonthText = "July"
	Case 8    : MonthText = "August"
	Case 9    : MonthText = "September"
	Case 10  : MonthText = "October"
	Case 11  : MonthText = "November"
	Case 12  : MonthText = "December"	
	End Select
	
	FullDateString = MonthText & " " & Day(newdate.lslocaltime) & ", " & Year(newdate.lslocaltime)		
	
End Function