Записать в новый файл те строки исходного текстового файла, которые нельзя преобразовать в число - VB

Private Sub Form_Load()
    Dim fNumIn As Integer, fNumOut As Integer, _
        FileIn As String, FileOut As String
    Dim Txt As String, Value As Long, Sum As Long
    FileIn = "D:\Test.txt"
    FileOut = "D:\TestOut.txt"
    fNumIn = FreeFile
    fNumOut = fNumIn + 1
    Open FileIn For Input As fNumIn
    Open FileOut For Output As fNumOut
    Do Until EOF(fNumIn)
        Line Input #fNumIn, Txt
        If Not IsNumeric(Txt) Then Print #fNumOut, Txt
    Loop
    Close fNumIn
    Close fNumOut
End Sub