Imports System
Public Class Test
Public Shared Sub Main()
Dim n as Integer = 72581
Dim firstDigit as Integer = n
Do While firstDigit >= 10
firstDigit /= 10
Loop
Console.WriteLine(firstDigit)
Dim lastDigit as Integer = n Mod 10
Console.WriteLine(lastDigit)
End Sub
End Class
' run:
'
' 7
' 1