MessageBox.Show("a" & strLine(strline1.Length + 1) & Asc(strLine(strline1.Length + 1)))
strLine2 = source.Substring(source.indexof(" ") + 126)