Try

            Writer.WriteLine("")
            Writer.Flush()

            Writer.WriteLine("2" & vbNullChar & "Fifty! Bot v3")
            Writer.Flush()

            While Reader IsNot Nothing

                Dim Line As String = Reader.ReadLine
                Dim Token() As String = Line.Split(vbNullChar)

                If Line.StartsWith("ok") Then

                    Dim sp() As String = Line.Split(vbNullChar)

                    Writer.WriteLine("i" & vbNullChar & "e" & vbNullChar & "Fifty! Bot" & vbNullChar & Token(2) & vbNullChar & "_°E°Bot erfolgreich angenommen, viel Spaß noch! °>sm_dice.b.gif<°")
                    Writer.Flush()

                    Change(tb_channel, Token(2))
                    Change(tb_nick, Token(1))

                    Nachrichtsenden("/h", tb_channel.Text)

                    isConnected = True