[sami2015]

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
MsgBox(DropboxTextFile("https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt"))
End Sub

Public Function DropboxTextFile(ByVal url As String) As String
Try
url = url.ToLower.Replace("https://www.dropbox.com/", "https://dl.dropboxusercontent.com/")
Return System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(url))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function