Dim sr As New StreamReader(txtFilepath.Text)
        Try
            'Daten aus Datei auslesen
            Dim str As String = sr.ReadLine()
            Do While Not IsNothing(str)
                arr_temp = Split(str, "|")
                arr_artikel(i, j) = arr_temp(0)
                arr_artikel(i + 1, j) = arr_temp(1)
                strFile.Append(str & vbCrLf)
                j += 1
 
                str = sr.ReadLine()
            Loop
 
           For i = 0 To j - 1
 
                wb_prodinfo = arr_artikel(1, i).ToUpper
                Try
                    '##########################################################
                    ' #####E:\VBs\TestPDA\WorkBook.txt
                    'Wert 1 in der letzten Spalte von Wörterbuch = Funktion
                    '1=GetNumerics
                    'teststr = "\d\d\d(PIN)|(S)\d\d\d|(SOCKET)\d+|(" & _
                      "SOCKET)\s\d+|(SKT)\d+;SOCKEL ;1"
                    'prodinfo = "AMD ATHLON 3500+ SOCKET 939"
                    Dim wb_sr As New StreamReader("c:\WorkBook.txt")
                    wb_RecordSet = wb_sr.ReadLine()
                    Do While Not IsNothing(wb_RecordSet)
                        wb_array1 = Split(wb_RecordSet, ";")
                        wb_array1(0) = wb_array1(0).Replace(Chr(34), "")
                        wb_array2 = Split(wb_array1(0), "|")
 
                        wb_RecordSet = wb_sr.ReadLine()
 
                        For wb_i = 0 To wb_array2.Length - 1
                            wb_reg = New Regex(wb_array2(wb_i))
                            If wb_reg.IsMatch(wb_prodinfo) Then
                                For Each m As Match In wb_reg.Matches( _
                                  wb_prodinfo)
                                    If wb_array1(2) <> "" Then
                                        Select Case wb_array1(2)
                                            Case 1
                                                wb_result = _
                                                  StringWork1.getNumerics( _
                                                  m.Value)
                                                wb_Search += wb_array1(1) & _
                                                wb_result & Chr(32)
                                            Case 2
                                                wb_result = _
                                                  StringWork1.getNumerics( _
                                                  m.Value)
                                                wb_Search += wb_result & _
                                                wb_array1(1) & Chr(32)
                                        End Select
                                    Else
                                        wb_result = " "
                                    End If
 
                                    Exit For
                                Next
                            End If
                            If wb_result <> "" Then
                                Exit For
                            End If
                        Next
                        wb_result = ""
                    Loop
                    wb_sr.Close()
 
 
                    strWB = strWB.Append(arr_artikel(0, i) & Chr(32) & _
                      wb_Search & vbCrLf)
                    wb_Search = ""
                    wb_result = ""
                    '##########################################################
                    ' #####E:\VBs\TestPDA\WorkBook.txt
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
 
            Next i
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
 
            sr.Close()
        End Try
        txtOriginal.Text = strFile.ToString
        TextBox1.Text = strFile2.ToString
        txtWorkBook.Text = strWB.ToString

Nichts ist umsonst!