Jak rozdzielić dane z Atmegi 16 na trzy pola tekstowe w Visual Basic?

Witam wszystkich na forum i ponownie prosze o pomoc w następujacym temacie,w Was ostatnia nadzieja.Mój problem dotyczy przesyłu i odczytu danych w programie napisanym w visual basicu,w program który siedzi w atmedze wysyła do PC takie dane:
print "temperatura1";tmp1
print "temperatura2";tmp2
print "temperatura2";tmp3
w hyper terminalu odczyt jest następujący:
temperatura1 22
temperatura2 30
temperatura3 20
wszystko narazie ok,ale mój problem sie zaczyna w moim programie który napisałem w visual basicu do odczytu danych z atmegi,wstawiłem 3 okna tekstowe i kompletnie nie wiem jak rozdzielic te dane aby w kazdym oknie tekstowym pojawiała sie oddzielna temperatura,wszystkie te dane narazie są wyswietlane w jednym oknie tekstowym,może znajdzie sie jakis specjalista od visual basica który mi pomoże,za co serdecznie dziękuje.

Jesli dobrze zrozumialem to masz w jednym polu tekstowym w trzech wierszach podaną temperturę poprzedzoną słowem temperatura i chcesz to przepisac do trzech pól tekstowych?
podaj jaki to visual basic jest - kompilator - Microsoft VB6, czy moze kompilator SharpDevelop i visual basic .NET.

Dodano po 1 [godziny] 21 [minuty]:

podaje prosty kod ktory po wcisnieciu przycisku button1 przepisuje pierwszy wiersz tekstu z pola tekstowego textbox0 do pola tekstowego textbox1 drugi wiersz do drugiego i trzeci do trzeciego, mam nadzieje ze o to chodzilo - oczywiście to jest dla VisualBasic 6

Private Sub CommandButton1_Click()
Dim x0 As String
x0 = Me.TextBox0.Text
Dim x1 As String
Dim x2 As String
Dim x3 As String
Dim enter As String
enter = Chr(13) + Chr(10)

Dim startWiersza As Integer
Dim endWiersza As Integer
startWiersza = 1
endWiersza = InStr(startWiersza, x0, enter, vbTextCompare) - 1
x1 = Mid(x0, startWiersza, endWiersza - startWiersza + 1)
startWiersza = endWiersza + 3

endWiersza = InStr(startWiersza, x0, enter, vbTextCompare) - 1
x2 = Mid(x0, startWiersza, endWiersza - startWiersza + 1)
startWiersza = endWiersza + 3
If InStr(startWiersza, x0, enter, vbTextCompare) > 0 Then
endWiersza = InStr(startWiersza, x0, enter, vbTextCompare) - 1
Else
endWiersza = Len(x0)
End If
x3 = Mid(x0, startWiersza, endWiersza - startWiersza + 1)

Me.TextBox1.Text = x1
Me.TextBox2.Text = x2
Me.TextBox3.Text = x3
End Sub

Bardzo dziękuje za odpowiedz,i podany przykład,kompilator to microsoft VB6.