Imports System.IO
Imports System.Text
 
Public Class frmReadFile
 
 
	Private Shared Sub TxtToXML(ByVal inFile As String, ByVal outFile As String)
		Dim sr As New StreamReader(inFile)
 
		Dim sb As New StringBuilder()
 
		Do While sr.Peek() >= 0
			Dim line As String = sr.ReadLine()
			Dim fields() As String = line.Split(New [Char]() {","c}, System.StringSplitOptions.None)
 
			sb.AppendLine("<CuePoint>")
			sb.AppendLine("	<Time>" & fields(0).Trim() & "</Time>")
			sb.AppendLine("	<Type>event</Type>")
			sb.AppendLine("	<Name>Marker " & fields(1).Trim() & "</Name>")
			sb.AppendLine("	<Parameters>")
			sb.AppendLine("		<Parameter>")
			sb.AppendLine("			<Name />")
			sb.AppendLine("			<Value>" & fields(2).Trim() & "</Value>")
			sb.AppendLine("		</Parameter>")
			sb.AppendLine("	</Parameters>")
			sb.AppendLine("</CuePoint>")
		Loop
 
		sr.Close()
		sr.Dispose()
 
		Dim result As String = sb.ToString()
		If (File.Exists(outFile)) Then
			File.Delete(outFile)
		End If
		File.WriteAllText(outFile, sb.ToString())
	End Sub
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		'This is since I don't have your file. Change this to the path on YOUR machine
		TxtToXML("C:\dotnetwin\example.txt", "C:\dotnetwin\example.xml")
		MessageBox.Show("Done")
	End Sub
End Class

sb.AppendLine("	<Time>" & decimal.Parse(fields(0).Trim()).ToString("F4") & "</Time>")

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim lst As New List(Of String)
		lst.Add("52.000000")
		lst.Add("160.000000")
		lst.Add("271.000000")
		For Each s In lst
			Dim i1 As Integer = GetInteger(Decimal.Parse(s))
			Console.WriteLine("Original Value: {0}", s)
			Console.WriteLine("New Value: {0:F0}", i1)
		Next
	End Sub
 
	Private Shared Function GetInteger(ByVal someDecimal As Decimal) As Integer
		If (someDecimal <= 0) Then
			Return 0
		End If
		Return Convert.ToInt32(Math.Floor(someDecimal / 100))
	End Function

Original Value: 52.000000
New Value: 0
Original Value: 160.000000
New Value: 1
Original Value: 271.000000
New Value: 2