Visual Basic - duda

If Val(TextBox16.Text) = 1 Then TextBox15.Text = 308 : TextBox14.Text = 2

una pregunta necesito una ayuda, necesito colcocar en la parte del 1 no solo el uno ese textbox16 puede ser 0,1,2,3,4 no solo uno como hago para colcoar ese intervalo de (0-4 en el condicional) lo intente con comas u no funciona gracias por su ayuda

If Val(TextBox16.Text) = (0,1,2,3,4) Then TextBox15.Text = 308 : TextBox14.Text = 2
error por comas

segun lo que entendi quieres que si sale un valor entro el 0 y el 4 ejecute un
codigo

if instr(1,"01234", val(me.textbox16.text)) > 0 then
'codigo a ejecutar
end if

Si el uno es tuerto el otro es ciego. Cada cual puede elegir su propio camino, pero los que saben eligen el mismo.

Para que creeis que se inventó el Select case?

Algunos tienen una ESPECIAL mania en utilizar instr para lo que no es. Además si se compara texto que pinta el VAL?

Esto es lo que cualquier programador hace:

Select Case Val(TextBox16.Text)
Case 0,1,2,3,4
TextBox15.Text = 308
Case Else
TextBox14.Text = 2
End Select

Y digo yo que por algo será.