Problema con PUT in scrittura file

[shopbazar]

Private Sub cmdCrea_Click()
'questa routine crea il file
Dim intFile As Integer
Dim intCtr As Integer
intFile = FreeFile
Open "C:\Documents and Settings\sandro\Desktop\cartelle di sandro\SAIU\VisualBasic\sandro-mike\FILE\prova.txt" For Random As #intFile Len = 5 'Len la lunghezza di ogni record
For intCtr = 1 To 5
Put #intFile, intCtr, CStr(intCtr) ' i record hanno lo stesso numero di dati
Next intCtr
Close #intFile

End Sub