主题：字符串分段？

Dim r As  String="    中国国,经济ab123"
Dim bs() As  Byte = System.Text.Encoding.Default.GetBytes(r)
Dim cd As  Short= bs.Length
MessageBox.Show(cd)
执行后cd=20
请问如何将每10个字节赋值给一个变量？r的长度不定，各位帮帮忙！