Public Function GetOnAir() As String
Dim cWeb As New System.Net.WebClient()
Dim sQuell As String = cWeb.DownloadString("http://Technobase.fm")
Dim reFilter As New System.Text.RegularExpressions.Regex(" target=""_top""><span style=""color:#ffdd82"">(?<string>(.*))\</span></a>")
Dim sOnAir As String = reFilter.Match(sQuell).Groups("string").ToString()

Return sOnAir


als modul

abrufen kannst du den dj dann mit
Label1.Text = GetOnAir()
End Function