Private Sub Text2_KeyPress(KeyCode As Integer)
  
   Dim kanava As String
kanava = Join.Text1.Text
nimi = Asetukset.Text3.Text
If KeyCode = 13 Then
        ws.SendData "PRIVMSG " & kanava & " :" & Text2.Text & vbCrLf
        Text1.Text = Text1.Text & "< " & nimi & " >" & Text2.Text & vbCrLf
        Me.Text2.Text = ""
  End If
Dim nacci As String
nacci = Text2.Text
Trim (nacci)

If Left(nacci, 2) = "/j" Then
ws.SendData "JOIN " & Mid(Text2.Text, 3)
End If

End Sub