Splitting company name into 3 strings
Just for the fun of it, here's a one-liner using LINQ.

Dim names = (From i In {0, 35, 70} Where i &lt; input.Length Select input.Substring(i, Math.Min(35, (input.Length - i))))


Example

Dim names As String() = (From i In {0, 35, 70} Where i &lt; input.Length Select input.Substring(i, Math.Min(35, (input.Length - i)))).ToArray()
Dim var1 As String = If((names.Length &gt; 0), names(0), String.Empty)
Dim var2 As String = If((names.Length &gt; 1), names(1), String.Empty)
Dim var3 As String = If((names.Length &gt; 2), names(2), String.Empty)