Dim inh As String = (wb.Document.Forms(0).InnerHtml)
        If inh.Contains("<SELECT ") Then
            Dim splt() As String = Split(inh, "<SELECT ")
            For x As Integer = 1 To splt.Length - 1
                If splt(x).Contains("</SELECT>") Then
                    Try
                        Dim cmbInnerHTML As String = Split(splt(x), ">", 2)(1)
                        cmbInnerHTML = Split(cmbInnerHTML, "</SELECT>")(0)
                        Dim einträge() As String = Split(cmbInnerHTML, "<OPTION")
                        For i As Integer = 1 To einträge.Length - 1
                            Dim splt1() As String = Split(Replace(einträge(i), _
                              "</OPTION>", ""), ">")
                            Dim txt As String = splt1(1)
                            If txt <> "" Then
                                Select Case x
                                    Case 1
                                        Me.fahrzeuge.Items.Add(txt)
                                    Case 2
                                        Me.modelljahr.Items.Add(txt)
                                End Select
                            End If
                        Next
                    Catch ex As Exception
 
                    End Try
                End If
            Next
            Me.fahrzeuge.SelectedIndex = 0
            Me.modelljahr.SelectedIndex = 0
            MsgBox("Fertig")
        End If