Vb If Statement On One Line