Private Sub Progress() Dim pState As Long Dim pProgress As Long Dim pComplete As Long Dim pDescription As String burner.GetProgress pState, pProgress, pComplete, pDescription End Sub