direi di no questa è la sub che viene invocata quando clicco sul pulsante per inserire i dati (ovviamente ancora non ho implementato le query sul db)

sub elabora(obj as object, e as eventArgs)
dim risultato as string
dim valoreID as string
dim valoreControllo as integer
FOR Each risultato in Request.Form
IF Instr(risultato , "_" ) > 0 then
valoreControllo = INSTR(risultato, "_" , 0)
valoreID = MID(risultato , valoreControllo+1)

Dim mediavotoTotale as double

IF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "Presenza") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "Ammonizioni") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "Espulsioni") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "GolFatti") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "Autogol") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "VotoGazzettino") > 0 Then
mediavotoTotale = mediavotoTotale + Cdbl(risultato.Text)
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
ELSEIF INSTR(risultato, valoreID) > 0 AND INSTR(risultato, "VotoMessaggero") > 0 Then
lblMessage.Text = lblMessage.Text &" "& Request.Form(risultato)
end if

end if


Next
end sub

il problema è che i dati lui li recupera e me li stampa correttamente se evito di utilizzare i vari cast !!!
ho provato una valanga di soluzione CTYPE() e un'altra miriade di cose ma niente