Dim fso, f1
Dim i,j

Set fso	= CreateObject("Scripting.FileSystemObject")
Set	f1	= fso.CreateTextFile("dummy.txt", True)

Randomize
For i = 1 to 999999
	f1.Write( i )
	f1.Write( vbTab )
	f1.Write( ranSentence( ranNumber(1,4) ) )
	f1.Write( vbTab )
	f1.Write( ranNumber(1,23) )
	f1.Write( vbTab )
	f1.Write( ranNumber(1000000,9999999) )
	f1.Write( vbTab )
	f1.Write( ranNumber(0,999) & "." & ranCent )
	f1.WriteLine()
Next
f1.Close

Function ranWord( l )
	Dim i,j,c,r
	For i = 1 to l
		j = i Mod 2
		If j = 0 Then
			c = ranCon()
		Else
			c = ranNonCon()
		End If
		r = r & c
	Next
	ranWord = r
End Function

Function ranCent()
	Dim i
	i = ranNumber(1,99)
	If i < 10 Then
		ranCent = "0" & i
	Else
		ranCent = i
	End If
End Function

Function ranSentence( l )
	Dim i,j, r
	For i = 1 to l
		j = ranWord( ranNumber(2, 12) )
			If i = 1 Then
				r = r & j
			Else
				r = r & " " & j
			End If
	Next
	ranSentence = r
End Function

Function ranNonCon()
	Dim c
	c = ranNumber(97, 122)
	Do While c = 97 Or c = 101 Or c = 105 Or c = 111 or c= 117
		c = ranNumber(97,122)
	Loop
	ranNonCon = Chr(c)
End Function

Function ranCon()
	Dim con
	con	= Array("a","e","i","o","u")
	ranCon = con( ranNumber(0,4) )
End Function

Function ranText(l)
	t	= Cstr(l)
	randomText = t
End Function

Function ranNumber(s, e)
	ranNumber = Int( (e-s+1) * Rnd + s )
End Function