Запись в файл строк, являющихся вещественным числом с нулевой дробной частью

Option Strict On
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FileR, FileW As String
        FileR = Trim(TextBox1.Text)
        FileW = Trim(TextBox2.Text)
        Performing(FileR, FileW, ListBox1, ListBox2)
    End Sub
    Sub Performing(ByVal File1 As String, ByVal File2 As String, ByVal LB1 As ListBox, ByVal LB2 As ListBox)
        Dim Rf As New StreamReader(File1)
        Dim Wf As New StreamWriter(File2, True)
        Dim Line1 As String = "", Line2 As String = ""
        Do While Not Rf.EndOfStream()
            Line1 = Rf.ReadLine()
            LB1.Items.Add(Line1)
            If Line1.Length > 0 Then
                Line2 = Find(Line1)
            Else
                Line2 = ""
            End If
            Wf.WriteLine(Line2)
            LB2.Items.Add(Line2)
        Loop
        Rf.Close()
        Wf.Flush()
        Wf.Close()
    End Sub
    Sub Find(ByVal a As String, ByVal s As String)
        Dim i As Integer
        Dim x() As String
        If IsNumeric(a) Then
            s = "Да"
        Else
            x = Split(a, ",")
            For i = 0 To UBound(x)
                If IsNumeric(x(0)) And CInt(x(1)) = 0 Then
                    s = "Да"
                Else
                    s = "Нет"
                End If
            Next
        End If
    End Sub
End Class

    Function myFind(ByVal a As String) As String
        Dim i As Integer
        Dim x() As String
        Dim s As String
        If IsNumeric(a) Then
            s = "Да"
        Else
            x = Split(a, ",")
            For i = 0 To UBound(x)
                If IsNumeric(x(0)) And CInt(x(1)) = 0 Then
                    s = "Да"
                Else
                    s = "Нет"
                End If
            Next
        End If
        Return s
    End Sub

    Function myFind(ByVal a As String) As String
        Dim i As Integer
        Dim x() As String
        Dim s As String = ""
        If IsNumeric(a) Then
            Return "Да"
        Else
            x = Split(a, ",")
            For i = 0 To UBound(x)
                If IsNumeric(x(i)) AndAlso CInt(x(i)) = 0 Then
                    s = "Да"
                Else
                    Return "Нет"
                End If
            Next
        End If
        Return s
    End Function