Generating XML from Excel VBA

For each i | i<6 | i++
	Create vehicle[i]
End For

//Target time for vehicles
days = 15
distance = 20



//Establish a counter to determine the number of KM that the vehicle has moved
vehicle[i].counter = 0

//Establish a counter to determine how many days the vehicle has been driving for
vehicle[i].days = 0

onInterval (10 seconds){
	if(vehicle[i].counter < 20){
		vehicle[i].counter = vehicle[i].counter + int(rand()*3+1)
		if((vehicle[i].counter / vehicle[i].days) < (distance / days)){
			vehicle[i].status = 1
		} else {
			vehicle[i].status = 0
		}
	}
}

For each i | i<6 | i++
	if(vehicle[i].counter > 20){
		vehicle[i].counter = 20
	}
End For

CreateXML(){
print("<XML>")

For i | i<=5 | i++
	print("<"+vehicle[i]+">")
		print("<position>"+vehicle[i].counter+"</position>")
		print("<status>"+vehicle[i].status+"</status>")
	print("</"+vehicle[i]+">")
End For

print("</XML>")

End Sub();

Option Explicit
Public Enum eTimeInterval
    eYear
    eQuarter
    eMonth
    eDayOfYear
    eDay
    eWeekday
    eWeek
    eHour
    eMinute
    eSecond
End Enum
Public Sub Test()
    Debug.Print Now
    Timer eSecond, 1, "Test"
End Sub

Public Sub Timer(ByVal interval As eTimeInterval, ByVal increment As Double, ByVal procedure As String)
    Excel.Application.OnTime DateAdd(TimeIntervalToString(interval), increment, Now()), procedure
End Sub
Private Function TimeIntervalToString(ByVal interval As eTimeInterval) As String
    Dim strRtnVal As String
    Select Case interval
        Case eTimeInterval.eYear:       strRtnVal = "yyyy"
        Case eTimeInterval.eQuarter:    strRtnVal = "q"
        Case eTimeInterval.eMonth:      strRtnVal = "m"
        Case eTimeInterval.eDayOfYear:  strRtnVal = "y"
        Case eTimeInterval.eDay:        strRtnVal = "d"
        Case eTimeInterval.eWeekday:    strRtnVal = "w"
        Case eTimeInterval.eWeek:       strRtnVal = "ww"
        Case eTimeInterval.eHour:       strRtnVal = "h"
        Case eTimeInterval.eMinute:     strRtnVal = "n"
        Case eTimeInterval.eSecond:     strRtnVal = "s"
    End Select
    TimeIntervalToString = strRtnVal
End Function

Sub Example2()
    Dim strSomeValue As String
    strSomeValue = "<w00t1!>I like cheese.</w00t1!>"
    WriteString "C:\Test\textB.xml", strSomeValue, True
End Sub
Public Sub WriteString(ByVal path As String, ByVal value As String, Optional overwrite As Boolean = False)
    Dim lngFileNum As Long
    If LenB(Dir(path)) Then
        If overwrite Then
            Kill path
        Else
            Err.Raise 70
        End If
    End If
    lngFileNum = FreeFile
    Open path For Binary Access Write Lock Read Write As lngFileNum
    Put lngFileNum, , value
    Close lngFileNum
End Sub