macro save in two path different

Hello everyone.
as correcting the part of the macro < if-then >:

Sub CopiaESalvaInPathX()
 
   Dim username As String
       
'-----------------------------------------------------------------------------------------
   username = Foglio5.Range("A2")
               
 If xlExcel8 Then '<<< excel 2003
  
 sPath = "C:\Documents and Settings\" & username & "\Documenti\rapportini_ore_straordinarie" 'excel 2003
  
Else
 
If xlExcel8 Then '<<< excel 2007 e superiore ??????
 
sPath = "C:\Users\" & username & "\Documents\rapportini_ore_straordinarie" 'excel 2007
 
End If

If Excel 2003 = sPath = "C:\Documents and Settings\" & username & "\Documenti\rapportini_ore_straordinarie" 'excel 2003

if excel 2007 = sPath = "C:\Users\" & username & "\Documents\rapportini_ore_straordinarie" 'excel 2007

I hope I was clear.
max_max