une petite astuce pour récupérer une valeur sans erreur:

CSng(Val(TextBoxVolumeBac.Text))