el error que te larga es porke el argumento que keres pasar por "referencia", no coincide con el tipo de variable a recivir.
Por ejemplo una funcion que recive un valor entera (integer), no puede recivir un string..
por eso el error..
Aka tenes la solucion!
Private Sub Command1_Click()
Dim Z As String
'For I = 1 To 15
' Z = I
' GuardarIni "c:\test.ini", Z, "nombre", "juego" & Z
' GuardarIni "c:\test.ini", Z, "autor", "autor" & Z
' GuardarIni "c:\test.ini", Z, "estado", "nidea" & Z
'Next
For I = 1 To 15
Z = I
A = LeerIni("C:\test.ini", Z, "nombre")
B = LeerIni("C:\test.ini", Z, "autor")
C = LeerIni("C:\test.ini", Z, "estado")
List1.AddItem "- " & Z
List1.AddItem "-- " & A
List1.AddItem "-- " & B
List1.AddItem "-- " & C
List1.AddItem " "
Next
End Sub