sRet = Space( 255 ) 'do not remove this line!
nRet = GetProfileString( "devices" , vbNullString, "", sRet, Len(sRet))

sRet = Space( 255 ) 'do not remove this line!
nRet = GetProfileString( "Windows" ,  "device" , "", sRet, Len(sRet))

nRet = WriteProfileString( "Windows" ,  "device" , txtPrinter)

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
Declare Function WriteProfileString Lib  "kernel32"  Alias  "WriteProfileStringA"  _
    (ByVal lpszSection As String, ByVal lpszKeyName As String, _
    ByVal lpszString As String) As Long