Visual Basic - Problema al crear y verificar si existe un fichero urge

cuando le doi a crear fichero
Private Sub cmdverificausuario_Click()

Savefile = FreeFile
Nombre = "C:\" & lblusuario.Caption
Open Nombre For Output As #Savefile
Print #Savefile, lblusuario.Caption
Close #Savefile


End Sub
melo crea pero cuando doi a verificar

Private Sub cmdverifica_Click()
GetAttr ("C:\" & lblusuario.Caption)
MsgBox "El fichero existe."
Exit Sub
MsgBox "El fichero no existe."
end sub
me da error por cierto se podria acer que creara el fichero cuando entre el el form o por ejemplo cuando pasen 5 segundos de aver cargado.... gracias

intenta esto fajardo:
ve a Project\References\Microsoft Scripting Runtime
inserta un timer1

luego pon esto en declaraciones
private fso as filesystemobject

Private Sub Form_Load()
set fso = new filesystemobject
End Sub

Private Sub cmdverificausuario_Click()
open "C:\" & lblusuario for output as #1
print #1, "Hola soy " & lblusuario
close #1
timer1.enabled = true
timer1.interval = 5000 '5 segundos
cmdverifica_Click
End Sub

Private Sub cmdverifica_Click()
if fso.fileexists("c:\" & lblusuario) = true then
msgbox "El archivo fue creado"
elseif fso.fileexists ("c:\" & lblusuario) = false then
msgbox "archivo no creado"
end if
end sub