Option Explicit
 
Dim bEventSwitch As Boolean
 
Private Sub Form_Load()
    bEventSwitch = True
    WebBrowser1.Navigate "http://www.*****.com/galerie/details.php?image_id=191"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If bEventSwitch = True Then
        With WebBrowser1
            .Document.Forms(3).rating.Value = "5"
            .Document.Forms(3).submit.Click
        End With
        bEventSwitch = False
    End If
End Sub