Public Function GetSectionCount(ByVal sSectionName As String, _
                                ByVal sIniFile As String, _
                                ArOfSecNAmes() As String) As Long
   Dim sBuffer As String
   Dim sar() As String
 
   sBuffer = Space(65536)
 
   GetPrivateProfileSection sSectionName, sBuffer, Len(sBuffer), sIniFile
 
   If Len(sBuffer) > 0 Then
      sar = Split(sBuffer, Chr(0))
      GetSectionCount = UBound(sar) - 1
      ArOfSecNAmes = sar
   End If
End Function

Private Sub Form_Load()
  Dim sa() As String
  'Check Counter
  MsgBox Module1.GetSectionCount("Ich", "C:\Test.ini", sa())
  'Check an Entree
  MsgBox sa(0)
 
End Sub