Overpunch characters vb.net Function for Money & decimal

 Private Function overpunchDec(def As String) As Decimal

        Dim Intvalint As Decimal

        Dim strval

        Dim strvalreal

        Dim strover = def.Trim().Substring((Len(def) - 1), 1)

        strvalreal = def.Trim().Substring(0, (Len(def) - 1))

        Dim strovernum As String

        'Dim strsignI As Decimal = 1 / 100

        'Dim strsignD As Decimal = -1 / 100

        Dim strsign As Decimal

        ''decimal

        Select Case strover

            Case "{"

                strovernum = "0"

                strsign = 1 / 100

            Case "A"

                strovernum = "1"

                strsign = 1 / 100

            Case "B"

                strovernum = "2"

                strsign = 1 / 100

            Case "C"

                strovernum = "3"

                strsign = 1 / 100

            Case "D"

                strovernum = "4"

                strsign = 1 / 100

            Case "E"

                strovernum = "5"

                strsign = 1 / 100

            Case "F"

                strovernum = "6"

                strsign = 1 / 100

            Case "G"

                strovernum = "7"

                strsign = 1 / 100

            Case "H"

                strovernum = "8"

                strsign = 1 / 100

            Case "I"

                strovernum = "9"

                strsign = 1 / 100

            Case "}"

                strovernum = "0"

                strsign = -1 / 100

            Case "J"

                strovernum = "1"

                strsign = -1 / 100

            Case "K"

                strovernum = "2"

                strsign = -1 / 100

            Case "L"

                strovernum = "3"

                strsign = -1 / 100

            Case "M"

                strovernum = "4"

                strsign = -1 / 100

            Case "N"

                strovernum = "5"

                strsign = -1 / 100

            Case "0"

                strovernum = "6"

                strsign = -1 / 100

            Case "P"

                strovernum = "7"

                strsign = -1 / 100

            Case "N"

                strovernum = "8"

                strsign = -1 / 100

            Case "N"

                strovernum = "9"

                strsign = -1 / 100

        End Select

        strval = strvalreal & strovernum

        Intvalint = Convert.ToInt32(strval) * strsign

        Return Intvalint

    End Function

VB.NET Read/Parse text file and Insert Data into SQL Server Table

VB.NET Read text file and Insert Data into SQL Server Table

Dim FILE_NAME As String = "c:/test/FileToUpload_20230102.013721.txt"

        Dim TextLine As String

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objReader As New System.IO.StreamReader(FILE_NAME)

            Dim Str1

            Dim Str2

            Dim Str3

            Dim Str4

            Dim lineCount As Integer 'lines read so far in file

            Do While objReader.Peek() <> -1

                '                TextLine =   objReader.ReadLine() 

                TextLine = objReader.ReadLine()

                Str1 = TextLine.Substring(0, 2)

                If Str1 = "DE" Then

                    Str2 = TextLine.Substring(3, 1)

                    Str3 = TextLine.Substring(4, 3)

                    Str4 = TextLine.Substring(5, 10)

                    ' insert data into sql table

                    Dim query As String = "INSERT INTO  DBO.LoaddataPharmacy_Pal([RECORD TYPE],[RECORD INDICATOR],[ELIGIBLE COVERAGE CODE],[USER BENEFIT ID]) "

                    query = query & " VALUES ('" & Str1 & "' , '" & Str2 & "','" & Str3 & "','" & Str4 & "')"

                    Dim cmd As SqlCommand = New SqlCommand(query, _cn)

                    'cmd.Parameters.AddWithValue("@ROLEID", txtroleId.Text)

                    _cn.Open()

                    cmd.ExecuteNonQuery()

                    _cn.Close()

                End If

                Str1 = ""

                lineCount = lineCount + 1 'increment lineCount

           Loop

            ' Textbox1.Text = TextLine

        Else

            MessageBox.Show("File Does Not Exist")

        End If