a を使用しList(Of String)
て、目的の行で結果を保存します。次に、ループを使用して TextBox 内のすべての行を繰り返し、必要なものを取得します。
例えば:
Dim desiredLines As New List(Of String)()
Dim allLInes As String() = textBox1.Lines
Dim datePattern As String = "dd-MM-yyyy HH-mm-ss"
For i As Integer = 0 To allLInes.Length - 1
Dim line As String = allLInes(i).Trim()
Dim dt As Date
If line.Length >= datePattern.Length AndAlso _
Date.TryParseExact(line.Substring(0, datePattern.Length), datePattern, Nothing, Globalization.DateTimeStyles.None, dt) Then
desiredLines.Add(dt.ToString(datePattern))
ElseIf line.StartsWith("Computer:") Then
desiredLines.Add(line.Split("-"c)(0).TrimEnd())
End If
Next