Сформировать из исходного новый файл, содержащий только числа

Imports System.IO
Imports System.Text
 
Public Class Form1
    'путь к файлу 
    Dim FileTest As String = Directory.GetCurrentDirectory & "\Test.txt"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists(FileTest) = True Then 'если файл существует то выражение true
            'читаем данные в TextBox1
            TextBox1.Text = IO.File.ReadAllText(FileTest, System.Text.Encoding.Default)
            'читаем данные в массив
            Dim ArryTast() As String = IO.File.ReadAllLines(FileTest, System.Text.Encoding.Default)
            TextBox2.Clear()
            TextBox3.Clear()
            For i As Integer = 0 To ArryTast.Count - 1 'перебираем все элементы массива
                If IsNumeric(ArryTast(i)) = True Then 'если True то число
                    TextBox2.Text = TextBox2.Text & vbCrLf & ArryTast(i) 'числа
                Else
                    TextBox3.Text = TextBox3.Text & vbCrLf & ArryTast(i) 'слова
                End If
            Next
        End If
    End Sub
End Class

Imports System.IO
 
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim inp As String = TextBox1.Text
        Dim out As String = TextBox2.Text
        Dim read As New System.IO.StreamReader(inp)
        Dim write As New System.IO.StreamWriter(out)
        Dim s() As Char
        Dim i As Integer
        Do While read.Peek() <> -1
            s = read.ReadLine
            Debug.WriteLine(s)
            For i = 0 To Len(s) - 1
                If ((Asc(s(i)) > 48) And (Asc(s(i)) < 57)) Then
                    write.WriteLine(s(i))
                End If
            Next i
        Loop
        read.Close()
        write.Close()
        MsgBox("Операция выполнена успешно!")
    End Sub
End Class

Dim inp As String = TextBox1.Text
Dim out As String = TextBox2.Text
Dim read As New System.IO.StreamReader(inp)
Dim write As New System.IO.StreamWriter(out)