Imports System
Public Class Program
Public Shared Function truncate_left(ByVal num As Integer) As Integer
Dim total As Integer = CInt(Math.Log10(num)) - 1 ' // total - 1 = 3
Dim first_digit As Integer = num \ CInt(Math.Pow(10, (total)))
Return num - first_digit * CInt(Math.Pow(10, (total)))
End Function
Public Shared Sub Main(ByVal args As String())
Dim num As Integer = 7483
Console.Write(truncate_left(num))
End Sub
End Class
' run:
'
' 483
'