<%@ WebService Language="VB" Class="ConvertMoney" %>

 Imports System.Web.Services

 <WebService()>Public Class ConvertMoney
   Inherits WebService

   <WebMethod()>Public Function _
     PoundsToDollars(BritishPounds As Double, _
      Key As String) As Double
         If ValidateUser(Key) Then
            Return BritishPounds * 1.44
         End If
  End Function

   Private Function ValidateUser(Key As String) As Boolean
      'Perform Check and return True or False
      Return(True)
   End Function
 End Class