vb net substring 左 から