yes

Public Function VBGetPrivateProfileString(ByVal iFilename As String,
ByVal iSection As String, ByVal iKey As String) As String
' **************************************************************
' Description:    VB wrapper for GetPrivateProfileString API call
'
' Parameters:
'     input:
'        iFilename:  name of the .ini file
'        iSection:   section in the .ini file
'        iKey:       key in the section
'
'     output:
'        (none)
'
' Return value:   the string for the specified entry or an empty
'                    string if the entry is not found
'
' Comments:    input parameters should not be empty or null strings
' **************************************************************
   Dim lngTemp As Long

   VBGetPrivateProfileString = String$(256, 0)
   lngTemp = GetPrivateProfileString( _
               lpApplicationName:=iSection, _
               lpKeyName:=iKey, _
               lpDefault:="", _
               lpReturnedString:=VBGetPrivateProfileString, _
               nSize:=257, _
               lpFileName:=iFilename)
   VBGetPrivateProfileString = Left$(VBGetPrivateProfileString,
lngTemp)

End Function

--
Paul Marshall

'This goes into the declarations section ofcourse.

Private Declare Function GetProfileString Lib "kernel32" Alias
"GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As
String, ByVal lpDefault As String, ByVal lpReturnedString As String,
ByVal nSize As Long) As Long

Private Function GetDeviceName() As String
Dim ipos                    As Integer
Dim sDefaultPrinter         As String
Dim lReturnValue            As Long

gsProcedureName = "frmReportManager.GetDeviceName"

sDefaultPrinter = String$(128, 0)

'get the default printer info into sDefaultprinter

lReturnValue = GetProfileString("WINDOWS", "DEVICE", "",
sDefaultPrinter, 127)
ipos = InStr(sDefaultPrinter, ",")
GetDeviceName = Left(sDefaultPrinter, ipos - 1)
End Function