Imports System.Text.RegularExpressions ' Make regex classes easily available Dim R as Regex = New Regex("^Subject: (.*)", RegexOptions.IgnoreCase) Dim M as Match = R.Match(line) If M.Success subject = M.Groups(1).Value End If ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl