Public Enum SiteContext
	Website
	CMS
	EMail
End Enum

public sub DoIt()
	For Each C As SiteContext In [Enum].GetValues(GetType(SiteContext))
		Response.Write(C.ToString)
	Next
end sub

Dim Ctx As SiteContext = [Enum].GetName(GetType(SiteContext), ddlFocus.SelectedValue)