mynick!~foobar@foobar.com PRIVMSG #myChannel :hi

Dim tmparr() As String = Nothing
mail = mail.Remove(0, 1)
tmparr = mail.Split("!")
rnick = tmparr(0)
tmparr = mail.Split(":")
Dim x As Integer = 1
rmsg = ""
While x < tmparr.Length
    rmsg += tmparr(x)
    If x <> tmparr.Length Then
        rmsg += ":"
    End If
    x = x + 1
End While

mail = "msg: <" & rnick & "> " & rmsg