Visual Basic

Dim req As HttpWebRequest = HttpWebRequest.Create("http://192.168.15.40/touchscreens/get.qsp?display=1")

        Dim res As HttpWebResponse = req.GetResponse

        Dim sr As New StreamReader(res.GetResponseStream)

        Dim dataReturned As String = sr.ReadToEnd

        sr.Close()

        MsgBox(dataReturned)

Public Class Class1
    Public Sub LogSomeInfo(ByVal sMethodName As String)
        'do something
    End Sub

    Public Function Test1() As String
        'This is the call I'd like to run for every sub/function
        LogSomeInfo(System.Reflection.MethodBase.GetCurrentMethod.Name)

        'do something
    End Function

    Public Sub Test2()
        'This is the call I'd like to run for every sub/function
        LogSomeInfo(System.Reflection.MethodBase.GetCurrentMethod.Name)

        'do something
    End Sub
End Class

if isnull({vSTUDENT_FEE_DETAIL.Admission}) then
    formula = "ooooo"
else
    formula = "yyyyy"
end if