Public Function funImportManu(ByVal ifTestOnly As Boolean, _
                            ByVal ifPrint As Boolean, _
                            ByVal ifAir As Boolean, _
                            ByRef progBar As ProgressBar, ByRef lblProgBar As _
                            Label, _
                            Optional ByVal strPrinter As String = "", _
                            Optional ByVal booLaserPrinter As Boolean = False, _
                            Optional ByVal intFileNo As Integer = 0, Optional _
                            ByVal strFile As String = "") As Boolean
 
On Error GoTo PROC_ERR
    objErr.Push "funImportManu"
 
  Dim strSQL As String
  Dim strID As String
  Dim strwhere As String
  Dim sCheckPLZisValid As String
  Dim aVar() As Variant
  Dim aTmp() As Variant
  Dim strTable As String
  Dim i, f, d, p, c As Integer
  Dim j As Integer
  Dim X, y, z As Integer
 
...
...
...u.s.w.