Private Function Berechnung(strDatei As String, Optional ProgressBar As _
  Variant) As Long
  If IsMissing(ProgressBar) Then
    Debug.Print "Aufruf ohne ProgressBar"
  Else
    Debug.Print "Aufruf mit ProgressBar"
  End If
End Function

Berechnung "Test"

' Debug zeigt "Aufruf mit ProgressBar"
Berechnung "Test2", ProgressBar1

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de