Imports System
Public Class Test
Public Shared Function Right(s As String, length As Integer) As String
Return s.Substring(s.Length - length)
End Function
Public Shared Sub Main()
Dim s As String = "vb.net java php"
Dim r As String = Right(s, 3)
Console.WriteLine(r)
End Sub
End Class
' run:
'
' php