All pastes #95905 Raw Edit

nacci

public text v1 · immutable
#95905 ·published 2006-07-22 12:45 UTC
rendered paste body
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