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