stai facendo un po' di confusione... il codice di esempio è una sub e non una funzione.. se vuoi convertirlo in funzione fai una cosa del genere:
codice:
Private Shared function parse(ipAddr As String) as ipaddress
      Try

          return ipaddress.parse(ipAddr)
      
      Catch e As ArgumentNullException
         Console.WriteLine("ArgumentNullException caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      
      Catch e As FormatException
         Console.WriteLine("FormatException caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      
      Catch e As Exception
         Console.WriteLine("Exception caught!!!")
         Console.WriteLine(("Source : " + e.Source))
         Console.WriteLine(("Message : " + e.Message))
      End Try
End function 'parse 

....USO
Dim indirizzo_ip As IPAddress
indirizzo_ip = Parse(ip.Text)
adatta la funzione come meglio credi.. io ho fatto solo alcune piccole modifiche per farti vedere come funziona...