Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fechaini As DateTime
        Dim fechafin As DateTime
 
 
        DateTime.TryParse(TextBox1.Text, fechaini) ' 12:00
        DateTime.TryParse(TextBox2.Text, fechafin) '13:00
 
 
        Dim dif As TimeSpan = fechafin - fechaini
 
        Dim Precio As Integer = 0
        Dim TotalMinutos As Integer = (dif.Hours * 60 + dif.Minutes)
        If TotalMinutos < 60 Or TotalMinutos = 60 Then Precio = 500
        If TotalMinutos > 60 Then Precio = 500 + (CInt((TotalMinutos - 60) / 15)) * 150
 
        MsgBox(Precio)
    End Sub
End Class

 
...
 Dim Precio As Integer = 0
        Dim TotalMinutos As Integer = (dif.Hours * 60 + dif.Minutes)
        If TotalMinutos < 60 Or TotalMinutos = 60 Then Precio = 500
        If TotalMinutos > 60 Then Precio = 500 + (CInt((TotalMinutos - 60) / 15)) * 150
...
 

por ejemplo un auto llego 12:00 y salio 13:00 = 01:00  estuvo una hora el cobro seria $500 

¿si el vehículo estuvo ejemplo llego  12:00 y salio 12:15 = estuvo 15 minutos pero igual se le cobra los $500?

entoces cada 15 minutos depues de la hora deberia cobrarse $150 

       '//Obtiene los enlaces
        'Inicia regex para obtener el link src 
        Dim PatternImg As String = "<[^>]+(src)\s*=\s*""?([^"">]+)""?.*?>" '"(?i:<img.*?>)" '"<img(.*?)/>"
        Dim MyRegexSRC As New Regex(PatternImg, RegexOptions.IgnoreCase)
        Dim MyMatchSRC As Match = MyRegexSRC.Match(strCode)
        While MyMatchSRC.Success
            Dim ImgLine As String = MyMatchSRC.Groups(0).Value 'Obtiene una linea tal como: <img src="...\imagen.jpg">
            Dim strLink As String = MyMatchSRC.Groups(2).Value 'Obtiene el link de una imagen
 
            'Inicia regex para obtener el ancho, alto y valor alt de una imagen a partir de la línea ImgLine
            Dim PatternWidth As String = "<[^>]""?(?:[^>]+(width|height)\s*=\s*""?([^ "">]+)""?\s+(height|width)\s*=\s*""?([^ "">]+)""?)?(?:[^>]+(alt)\s*=\s*""?([^"">]+)""?)?" '"width=""(.*?)"""  "(?i:width="".*?.*?"")"
            Dim MyRegexWidth As New Regex(PatternWidth, RegexOptions.IgnoreCase)
            Dim MyMatchWidth As Match = MyRegexWidth.Match(ImgLine)
 
            Dim strWidth As String = MyMatchWidth.Groups(2).Value 'Obtiene el ancho
            Dim strHeight As String = MyMatchWidth.Groups(4).Value 'Obtiene el alto
            Dim strAlt As String = MyMatchWidth.Groups(6).Value 'Obtiene el valor Alt
 
            '....
 
            MyMatchSRC = MyMatchSRC.NextMatch() 'Continúe el bucle hasta la siguiente coincidencia.
        End While

https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiK3Ii9zr7KAhXD0RQKHekoC9kQFggcMAA&url=http%3A%2F%2Fwww.recursosvisualbasic.com.ar%2Fhtm%2Fvb-net%2F54-obtener-links-de-una-pagina-web.htm&usg=AFQjCNGMpwVIQ7z-vWEq6Urag9Vf_UAKGg&bvm=bv.112454388,d.d24

http://www.recursosvisualbasic.com.ar/htm/vb-net/54-obtener-links-de-una-pagina-web.htm

#Region "Normalizar URL"
    Public Function ResolverURL(ByVal strUrl As String) As String
        Dim RedirectUrl As String = Nothing
         strUrl = DecodeUrl(strUrl)
        Try
            Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
            With WebRequest
                .UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
                'WebRequest.MaximumAutomaticRedirections = 1
                .AllowAutoRedirect = True  '<==importante
                '.ProtocolVersion = System.Net.HttpVersion.Version11
                 .Method = "GET"
                '.Timeout = 1000
            End With
 
            Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
                RedirectUrl = webResponse.ResponseUri.AbsoluteUri
                webResponse.Close() '<===importante
            End Using
        Catch ex As System.Net.WebException
            If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
                MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Try
        Return RedirectUrl
    End Function
   Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
#End Region
 

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ResolverURL(URL)
    End Sub
 

 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strUrl as String = "https://www.google.es/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwidgYbs98HKAhUJLhoKHRwBBzYQFggcMAA&url=https%3A%2F%2Fes.wikipedia.org%2Fwiki%2FAlbert_Einstein&usg=AFQjCNEpx7ZvmsTJayPwnY-RF0W1AbWLGw&bvm=bv.112454388,d.d2s"
 
         strUrl = DecodeUrl(strUrl)
 
        Dim uri As New Uri(strUrl)
        Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)
 
        Try
            Dim dirArray As String() = dirs.Split(CChar("="))
            For I As Integer = 1 To dirArray.Length - 1
                If dirArray(I).Length > 4 Then
                    If dirArray(I).Substring(0, 4) = "http" Then
                        strUrl = dirArray(I).Replace("&usg", "")
                        Exit For
                    End If
                End If
            Next
        Catch ex As Exception
        End Try
 
        TextBox1.Text = strUrl
 
End Sub
    Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
 

#Region "Normalizar URL"
    Public Function NormalizarUrl(ByVal strUrl As String) As String
        strUrl = DecodeUrl(strUrl)
        Task.Factory.StartNew(Sub()
                                  If strUrl.Contains("www.google.es/url?") = True Then
                                      '//Obtiene la Url a la que redirecciona 
                                      strUrl = ResolverUrlGoogle(strUrl)
                                  Else
                                      '//Si el Url redireciona a otra Url obtiene la Url a la que redirecciona
                                      strUrl = ResolverURL(strUrl)
                                  End If
                                  ComboBox1.Invoke(DirectCast(Sub() ComboBox1.Text = strUrl, MethodInvoker))
                              End Sub)
 
 
        Return strUrl
    End Function
    Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function
    Public Function ResolverUrlGoogle(ByVal strUrl As String) As String
 
        Dim uri As New Uri(strUrl)
        Dim dirs As String = uri.GetComponents(UriComponents.AbsoluteUri, UriFormat.UriEscaped)
        Try
            Dim dirArray As String() = dirs.Split(CChar("="))
            For I As Integer = 1 To dirArray.Length - 1
                If dirArray(I).Length > 4 Then
                    If dirArray(I).Substring(0, 4) = "http" Then
                        strUrl = dirArray(I).Replace("&usg", "")
                        Exit For
                    End If
                End If
            Next
        Catch ex As Exception
        End Try
        Return strUrl
    End Function
    Public Function ResolverURL(ByVal strUrl As String) As String
        Dim RedirectUrl As String = Nothing
        strUrl = DecodeUrl(strUrl)
 
        Try
            Dim WebRequest As System.Net.HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(strUrl), System.Net.HttpWebRequest)
            With WebRequest
                WebRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.112 Safari/535.1"
                'WebRequest.MaximumAutomaticRedirections = 1
                WebRequest.AllowAutoRedirect = True  '<==importante
            End With
            Using webResponse As System.Net.HttpWebResponse = DirectCast(WebRequest.GetResponse, Net.HttpWebResponse)
                RedirectUrl = webResponse.ResponseUri.AbsoluteUri
                webResponse.Close() '<===importante
            End Using
        Catch ex As System.Net.WebException
            If ex.Status = Net.WebExceptionStatus.NameResolutionFailure Then
                MessageBox.Show("El Sitio no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Try
        Return RedirectUrl
    End Function
#End Region
 

 Public Function DecodeUrl(ByVal strUrl As String) As String
        Dim HexCaracter As String()
        HexCaracter = strUrl.Split(CChar("%"))
        For I As Integer = 1 To HexCaracter.Length - 1
            Dim Cr As String = HexCaracter(I).Substring(0, 2)
            Dim newCr As String = Convert.ToChar(Convert.ToInt32(Cr, 16))
            strUrl = strUrl.Replace("%" & Cr, newCr)
        Next
        Return strUrl
    End Function

Imports mshtml 'Debe agregarse la referéncia Microsoft.mshtml para que esté disponible
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim CodeHtml As String = Nothing
        Using CodeFromStream As System.IO.Stream = GetHttpStream("http://www.google.es")
            '///Convierte Stream a String con codificación  EncodingHtml
            Try
                Dim streamRead As System.IO.StreamReader = _
                            New System.IO.StreamReader(CodeFromStream, System.Text.Encoding.GetEncoding(name:="utf-8"))
                CodeHtml = streamRead.ReadToEnd()
                While CodeHtml = ""
                    My.Application.DoEvents()
                End While
            Catch ex As Exception
            End Try
        End Using
 
        ' Obtain the document interface
        Dim htmlDocument As IHTMLDocument2 = DirectCast(New HTMLDocument(), IHTMLDocument2)
        ' Construct the document
        htmlDocument.designMode = "On" 'Evita error script
        htmlDocument.write(CodeHtml)
        ListBox1.Items.Clear()
 
        'IMG
        Dim allElements As IHTMLElementCollection = htmlDocument.body.all.Tags("img")
        For Each element As IHTMLElement In allElements
            Try
                ListBox1.Items.Add(element.getAttribute("src"))
                ListBox1.Items.Add(element.getAttribute("width"))
                ListBox1.Items.Add(element.getAttribute("height"))
                ListBox1.Items.Add(element.getAttribute("alt"))
 
            Catch ex As Exception
            End Try
        Next
 
        ' Dim imgElements As IHTMLElementCollection = htmlDocument.images
        'For Each img As IHTMLImgElement In imgElements
        ' ListBox1.Items.Add(img.href)
        ' ListBox1.Items.Add(img.width)
        ' ListBox1.Items.Add(img.height)
        'Try
        '  ListBox1.Items.Add(img.alt)
        'Catch ex As Exception
        ' End Try
        ' Next
 
    End Sub
 
 
#Region "Obtener código página"
    Function GetHttpStream(ByVal url As String) As System.IO.Stream
 
        Dim MyWebRequest As System.Net.HttpWebRequest
        Dim MyWebResponse As System.Net.HttpWebResponse
        Dim CodeStream As System.IO.Stream = Nothing
        Try
            MyWebRequest = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
            With MyWebRequest
                .UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)"
                '.Method = "GET"
                '.Timeout = 10000
                '.ProtocolVersion = System.Net.HttpVersion.Version10
            End With
            MyWebResponse = CType(MyWebRequest.GetResponse(), System.Net.HttpWebResponse)
            CodeStream = MyWebResponse.GetResponseStream()
 
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Return CodeStream
 
    End Function
#End Region
End Class
 

Dim Pattern As String = "<img[^>]+(src)\s*=\s*""?([^ "">]+)""?(?:[^>]+(width|height)\s*=\s*""?([^ "">]+)""?\s+(height|width)\s*=\s*""?([^ "">]+)""?)?(?:[^>]+(alt)\s*=\s*""?([^"">]+)""?)?"
 
        Dim re As New Regex(Pattern, RegexOptions.IgnoreCase)
        Dim m As Match = re.Match(code)
 
        While m.Success
 
            For I As Integer = 0 To m.Groups.Count - 1
                ListBox1.Items.Add(m.Groups(I).Value)
            Next
 
        End While