Private Function SetDPD(ByVal Browser As WebBrowser, ByVal Paketnummer As _
  String, _
                        Optional ByVal Send As Boolean = True, _
                        Optional ByVal Referenznummer As Boolean = False)
 
    With Browser
        .Navigate "http://www.DPD.de/"
 
        While .ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Wend
 
        .Document.Forms(0).pknr.Value = Paketnummer
 
        If Referenznummer Then .Document.Forms(0).typ(1).Click
 
        If Send Then .Document.Forms(0).submit.Click
    End With
End Function