Leer clave de archivo INI

[F_rank_cisco]

De momento, y hasta que alguien sepa como hacerlo, lo he podido hacer de esta forma:

Private Sub LeerCoorSnap(archivo As String)
Dim Linea As Variant, Total As String, coorX(7) As Integer, coorY(7) As Integer, i As Integer, s As String, c() As String

'Leer con API la Clave "Dialog" y la Key "tail_width"
tail = 88 'para probar
W_ancho = 754
Open archivo For Input As #1 'Lee archivo.ini
Do Until EOF(1)
Line Input #1, Linea
If InStr(1, Linea, "[SNAPSHOT_BUTTON]") > 0 Then
Line Input #1, Linea
Linea = Replace(Linea, " ", "")
'Guarda el indice
i = Right(Linea, 1)
Total = Total & Linea & vbCrLf
Line Input #1, Linea
Linea = Replace(Linea, " ", "")
'Elimina caracteres de Key no válidos para coordenada X
s = Replace(Linea, "bbox=", "")
'Extrae valor de coordenada X y coordenada Y
c = Split(s, ",")
'Guarda coordenada X
coorX(i) = c(0) + (W_ancho - tail) + 5
'Guarda coordenada Y
coorY(i) = c(1) + 5
Total = Total & Linea & vbCrLf & "coorX" & "(" & i & ")" & "=" & coorX(i) & vbCrLf & "coorY" & "(" & i & ")" & "=" & coorY(i) & vbCrLf
End If
DoEvents
Loop
Close #1
Call MsgBox(Total, vbInformation, "Lista") 'Para probar
End Sub

Esto funciona perfecto, pero entonces como lo lee la aplicación ?...
Quizás no se puede con Api's y lo leen como mi Sub??

Pero me gustaría saber si solo se puede hacer como en mi Sub, que aunque me sirve para lo que quiero, me gustaría aprender de algún experto como se haría con Api's.

Un saludo.