Function ReFormatDate(datein As String) As String
	' reformats date from yyyymmdd to mm/dd/yyyy
	Dim tmpyr As String
	Dim tmpmo As String
	Dim tmpday As String
	
	On Error Goto FErrorHandler
	
	If (Len(datein) <> 8) Then
		' give up, return datein
		ReFormatDate = datein
		Exit Function
	End If
	
	tmpyr = Left$( datein, 4 )
	tmpmo = Mid$(datein, 5, 2)
	tmpday = Right$(datein, 2)
	
	ReFormatDate = tmpmo & "/" & tmpday & "/" & tmpyr
	
FExit:
	Exit Function
FErrorHandler:
	ReFormatDate = datein
	Resume FExit
End Function