nacci

If Join.Text1.Text = "" Then
Text1.Text = Text1.Text & InData & vbCrLf

Else

nimi = InStr(InData, ":")
Merkki = InStr(InData, "!")
niim = Mid$(InData, nimi, Merkki)

viesti = InStr(InData, " ")
veisti = Mid$(InData, viesti + 8)


Text1.Text = Text1.Text & "<" & niim & ">" & veisti & vbCrLf
End If