fra scanner til fil (tough one...for me anyway)

hvordan kan jeg sende det objekt jeg har scannet til en funktion der kan gemme det som fil på HD
ScanDev.OpenScanner
ScanDev.StartScan

ovenstående to funktioner giver mig fint nok adgang til scanneren og jeg kan scanne det jeg har lyst til
ScanDev.ScanTo =
men jeg kender kun til  ScanTo = Displayonly kan man oprette  en ScanTo = variable (der kan indeholde OLE objekt)

Save as module:
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pSavefilename As SAVEFILENAME) As Long


Private Type SAVEFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function savefileas(strform As Form) As String
Dim SaveFile As SAVEFILENAME
Dim lReturn As Long
Dim sFilter As String
SaveFile.lStructSize = Len(SaveFile)
SaveFile.hwndOwner = strform.Hwnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
SaveFile.lpstrFilter = sFilter
SaveFile.nFilterIndex = 1
SaveFile.lpstrFile = String(257, 0)
SaveFile.nMaxFile = Len(SaveFile.lpstrFile) - 1
SaveFile.lpstrFileTitle = SaveFile.lpstrFile
SaveFile.nMaxFileTitle = SaveFile.nMaxFile
SaveFile.lpstrInitialDir = "C:\"
SaveFile.lpstrTitle = "Select a file using the Common Dialog DLL"
SaveFile.flags = 0
lReturn = GetSaveFileName(SaveFile)
If lReturn = 0 Then
MsgBox "A file was not selected!", vbInformation, _
"Please type in a filename"
Else
savefileas = Trim(Left(SaveFile.lpstrFile, InStr(1, SaveFile.lpstrFile, vbNullChar) - 1))
End If
End Function

opsummering:
Jeg vil gerne kunne gemme det objekt jeg scanner som en fil jeg selv definere til en mappe jeg selv vælger. fil definition og mappe valget virker med save as modulet, men jeg får en fejl hver gang jeg forsøger at gemme