Using srout As New IO.StreamWriter("C:\daten\outfields.txt"), _
            srin As New IO.StreamReader("C:\daten\infields.txt")
            Dim line As String
            Do
                line = srin.ReadLine()
                If Not line Is Nothing Then
                    Dim fields() As String = line.Split(";"c)
                    If fields.Length >= 9 Then
                        Try
                            Dim specialvalue As Integer = _
                              CInt(fields(8).Replace(".", ""))
 
                            If specialvalue > Short.MaxValue Then 
                               specialvalue = UShort.MaxValue - specialvalue + 1
                            end if
 
                            Dim specialdec As Decimal = _
                                CDec(-1) * specialvalue / 10
 
                            fields(8) = CStr(specialdec).Replace(",", ".")
 
                            line = String.Join(";", fields)
                            srout.WriteLine(line)
 
                        Catch ex As Exception
                            srout.WriteLine("Error: " & ex.Message)
                        End Try
                    End If
                End If
            Loop Until line Is Nothing
        End Using