Bueno, ya lo he hecho y finalmente quedaría así:
Código:
For Each Item in up_inmueble.Form
If Item.Name = "pavimentos" Then
strPavimentos = Item.Value & "," & strPavimentos
End If
Next
strPavimentos = Left( strPavimentos, (Len(strPavimentos)-1))
El left y el len lo que haría sería quitar la última "," de la variable, porque luego los datos guardados en la base de datos los recojo y transformo en vector con la función Split, y si dejo la última "," da error".
De nuevo, muchas gracias por la ayuda prestada.