If Join.Text1.Text = "" Then

Text1.Text = Text1.Text & InData & vbCrLf
Else

nimi = InStr(InData, ":")
merkki = InStr(3, InData, "!")
niim = Mid(InData, nimi - 1, merkki - 1)

Text1.Text = Text1.Text & niim & vbCrLf

End If