Если это точный формат, вы можете просто разбить его на две строки подряд:
Dim text As String ' your text
Dim sep() As String = {vbNewLine & vbNewLine}
Dim sections() As String = text.Split(sep, StringSplitOptions.None)
, а затем просто переберите их и поместите одно значение в каждое текстовое поле.