If (Me.GetFileRequest("http://SERVER/version.txt", 1.2)) Then
            MsgBox("neue version vorhanden !")
        End If
  End Sub

 Private Function GetFileRequest(ByVal url As String, ByVal myVersion As _
   Double) As Boolean
        Dim req As WebRequest = WebRequest.Create(url)
        req.Method = "GET"
        Dim resp As WebResponse = req.GetResponse()
        Dim sr As New StreamReader(resp.GetResponseStream())
        Dim content As String = sr.ReadToEnd
        sr.Close()
        If CType(content.Trim, Double) > myVersion Then Return True
        Return False
   End Function