Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
     Button1.Click
        Dim abfragestring As New Stringbuilder
        abfragestring.Append("http://maps.google.com/maps?q=")
        abfragestring.Append("Test+Straße+16,+Hessisch+Lichtenau/")
        Me.WebBrowser1.Navigate(abfragestring.ToString)
    End Sub