Imports System
Public Class Program
Public Shared Function removeRepeatedDigits(ByVal n As Long) As Long
Dim previous_digit As Long = n Mod 10
Dim tens_hundreds_thousands_and_more As Long = 10
Dim result As Long = previous_digit
While n <> 0
Dim current_digit As Long = n Mod 10
If current_digit <> previous_digit Then
result += current_digit * tens_hundreds_thousands_and_more
previous_digit = current_digit
tens_hundreds_thousands_and_more *= 10
End If
n = n \ 10
End While
Return result
End Function
Public Shared Sub Main(ByVal args As String())
Dim n As Long = 951112722221333331L
n = removeRepeatedDigits(n)
Console.Write(n)
End Sub
End Class
' run:
'
' 951272131
'
