Cохранить в тхт те строки, в которых перед знаком @ идет 9 символов

        Dim Arr As New List(Of String)
        Dim Lines() As String = IO.File.ReadAllLines("C:\9.txt", System.Text.Encoding.Default)
        For Each Line As String In Lines
            If Line.Split("@")(0).Length = 9 Then Arr.Add(Line)
        Next
        IO.File.WriteAllLines("C:\10.txt", Arr.ToArray, System.Text.Encoding.Default)

Imports System.Text.RegularExpressions
 
Module Module1
    Public Sub Main()
        Dim arr() As String = {"1298j6.30@192",
                               "00__werw2@000", _
                                "++@@00065@---",
                               "@", _
                            "oooooo"}
 
        Dim rgx As New Regex("(^[^@]{9})(?=@)")
 
        For Each str As String In arr
            If rgx.IsMatch(str) Then
                Console.WriteLine(str)
            End If
        Next
        Console.ReadKey()
    End Sub
End Module