Old Message Struct - TizzyT

    Public Structure Message
        Dim Type As MessageType
        Dim Nick As String
        Dim User As String
        Dim Host As String
        Dim Target As String
        Dim Message As String
        Dim Owner As String
        Dim Server As String
        Dim BotNick As String
        Dim Raw As String
        Public Sub New(ByVal _Type As MessageType, _
                       ByVal _Nick As String, _
                       ByVal _User As String, _
                       ByVal _Host As String, _
                       ByVal _Target As String, _
                       ByVal _Message As String, _
                       ByVal _Owner As String, _
                       ByVal _Server As String, _
                       ByVal _BotNick As String, _
                       ByVal _Raw As String)
            Type = _Type
            Nick = _Nick
            User = _User
            Host = _Host
            Target = _Target
            Message = _Message
            Owner = _Owner
            Server = _Server
        End Sub
        Public Sub New(ByVal RawMessage As String, ByVal _Owner As String, ByVal _Server As String, _BotNick As String)
            Raw = RawMessage
            Owner = _Owner
            Server = _Server
            BotNick = _BotNick
            If RawMessage.StartsWith(":") Then
                Dim PreInfo As String = RawMessage.Remove(0, 1).Split(" ")(0)
                If RawMessage.Split(" ")(1) = "PRIVMSG" Then
                    Try
                        Type = MessageType.PRIVMSG
                        Nick = PreInfo.Split("!")(0)
                        User = PreInfo.Split("!")(1).Split("@")(0)
                        Host = PreInfo.Split("@")(1).Split(" ")(0)
                        Target = RawMessage.Split(" ")(2)
                        Message = RawMessage.Substring(Nick.Length + _
                                                       User.Length + _
                                                       Host.Length + _
                                                       Target.Length + 14)
                    Catch ex As Exception
                        Type = MessageType.NS
                    End Try
                Else
                    Type = MessageType.NS
                End If
            End If
            If Type = MessageType.PRIVMSG Then
                If Nick = Nothing Or _
                    User = Nothing Or _
                    Host = Nothing Or _
                    Target = Nothing Or _
                    Message = Nothing Then
                    Type = MessageType.NS
                End If
            End If
        End Sub
    End Structure