Visual Basic - Para expertos

tengo esta funcion (parte del codigo total) que lo que hace es guardarme en un .ini los mensajes que yo guardo. mi pregunta es: ¿como puedo ir guardando mis mensajes en secciones continuas (1, 2 etc) sin tener que escribir yo el numero (Dim sSeccion...)? espero que se haya entendido! muchas gracias

Private Sub cmdAdd_Click()
Dim sFicINI As String
Dim sSeccion As String
Dim sClave As String
Dim sValor As String
sFicINI = Trim$("C:\abc.ini")
sSeccion = Trim$(CboSecciones)
sClave = Trim$(CboSecciones)
sValor = Trim$(TxtValor)
IniWrite sFicINI, sSeccion, sClave, sValor
End Sub