Förstår inte riktig va den vill att ja ska lägga till, alltså den säger:Ett satsslut förväntas:

sub Page_Load(obj as Object, e as EvenTargs)
	if (request.Cookies("Förnamn") is Nothing) Then
		lblWelcomeMsg.Text="Välkommen",<b>"Request.Cookies("Förnamn").Value &"!</b>
	End If
end sub

Du rör ihop det litet med citationstecknen.

Pröva

lblWelcomeMsg.Text = "Välkommen,<b>" & Request.Cookies("Förnamn").Value & "!</b>"

ah, han inte testa det där eftersom ja kom på detta:

sub Page_Load(obj as Object, e as EvenTargs)
	if (request.Cookies("Förnamn") is Nothing) Then
			Dim strname As HttpCookie = Request.Cookies("Fornamn")
            lblWelcomeMsg.Text = "Välkommen,<b> " & strname.Value & "</b>"
	End If
end sub