Visual Basic Programm Optimierung

 System.IO
Imports System.Collections
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1


    '-- code behind the main form  

    '-- Declare Private Members  
    Private fName As String
    Private txt As String
    Private NewText As String

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        '-- Open the CSV file using the Open File Dialog.  

        OpenCSVFile()
        '-- Read from the CSV file  
        ReadFromFile()
        '-- Write and Save Modified file  
        WriteModifiedCSVFile()
    End Sub

    Private Sub OpenCSVFile()
        If OpenFileDialog1.ShowDialog = (Windows.Forms.DialogResult.OK) Then
            Try
                '-- Open the file  
                fName = OpenFileDialog1.FileName
            Catch ex As IOException
                MessageBox.Show("Couldn't open the file")  
            End Try
        End If
    End Sub

    Private Sub ReadFromFile()
        '-- Open file and launch StreamReader  
        Dim reader As StreamReader
        '-- Read all text to the end.  

        Dim iBuffer As Integer, readBuffer As String, readLine As String
        readLine = ""  
        Dim MsgIdentity As String = ""  
        '''''   Dim regX As New Regex("\,") '<-- Will m  
        ' ''<-- Replace all comma (,) characters with dot (.) character.  

        If fName <> "" Then  
            reader = New StreamReader(New FileStream(fName, FileMode.Open))
            iBuffer = reader.Read
            While iBuffer > 0
                readBuffer = ChrW(iBuffer)

                If readBuffer <> """" Then  
                    readLine += readBuffer
                Else
                    '' If readLine.Substring(0, 1) = """" Then  
                    MsgIdentity += readBuffer

                    Do
                        iBuffer = reader.Read
                        readBuffer = ChrW(iBuffer)
                        'readBuffer = Chr(iBuffer)  
                        MsgIdentity += readBuffer
                    Loop Until readBuffer = """"  
                    '''' regX.Replace(MsgIdentity, ".")  
                    readLine += Replace(Replace(MsgIdentity, ",", "."), """", "")  
                    MsgIdentity = ""  

                End If
                ''readLine = ""  
                iBuffer = reader.Read
            End While

        End If
        reader.Close()
        NewText = ReplaceQuotations(readLine)

    End Sub

    Private Function ReplaceCommas(ByVal text As String) As String
        '-- Declare local variable  
        Dim regX As New Regex("\,") '<-- Will m  
        '<-- Replace all comma (,) characters with dot (.) character.  
        Return regX.Replace(text, ".")  
    End Function

    Private Function ReplaceQuotations(ByVal text As String) As String
        '-- Declare local variable  
        Dim regX As New Regex("\""")  
        '<-- Replace all comma (,) characters with dot (.) character.  
        Return regX.Replace(text, "")  
    End Function
    Private Function ReplaceNumber9_1(ByVal text As String) As String
        '-- Declare local variable  
        '-- Declare local variable  
        Dim regX As New Regex("9,1")  
        '<-- Replace all (9,1) with (9.1).  
        Return regX.Replace(text, "9.1")  
    End Function
    Private Sub WriteModifiedCSVFile()
        '-- Write the passed text in the specified file  
        '-- and create the new file.  
        Dim writer As StreamWriter = File.CreateText(fName)

        '-- Write text to sream  
        writer.Write(NewText)
        '-- Close the stream  
        writer.Close()
    End Sub

    Private Sub btnOpen_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    End Sub
End Class

 Private Sub ReadFromFile()
        '-- Open file and launch StreamReader  
        Dim reader As StreamReader
        '-- Read all text to the end.  

        Dim iBuffer As Integer, readBuffer As String, readLine As String
        readLine = ""  
        Dim MsgIdentity As String = ""  
        '''''   Dim regX As New Regex("\,") '<-- Will m  
        ' ''<-- Replace all comma (,) characters with dot (.) character.  

        If fName <> "" Then  
            reader = New StreamReader(New FileStream(fName, FileMode.Open))
            iBuffer = reader.Read
            While iBuffer > 0
                readBuffer = ChrW(iBuffer)

                If readBuffer <> """" Then  
                    readLine += readBuffer
                Else
                    '' If readLine.Substring(0, 1) = """" Then  
                    MsgIdentity += readBuffer

                    Do
                        iBuffer = reader.Read
                        readBuffer = ChrW(iBuffer)
                        'readBuffer = Chr(iBuffer)  
                        MsgIdentity += readBuffer
                    Loop Until readBuffer = """"  
                    '''' regX.Replace(MsgIdentity, ".")  
                    readLine += Replace(Replace(MsgIdentity, ",", "."), """", "")  
                    MsgIdentity = ""  

                End If
                ''readLine = ""  
                iBuffer = reader.Read
            End While

        End If
        reader.Close()
        NewText = ReplaceQuotations(readLine)

    End Sub