Программа определения последней цифры числа

Sub Макрос1()
Dim x As Long
x = Application.InputBox("Введите положительное целое число", "Поиск последнего знака", Type:=1)
MsgBox "Последний знак в числе:" & x & vbCrLf & "равен:" & (x Mod 10)
End Sub

Sub test()
     Dim x$
     x = Application.InputBox(" введите положительное или отрицательное число")
 With CreateObject("VBScript.RegExp"): .Pattern = "\d$"
  If .test(x) Then MsgBox "Последняя цифра в числе:" & x & vbCrLf & "равна:" & CInt(.Execute(x)(0))
 End With
End Sub

Sub test2()
   x = Application.InputBox(" введите положительное или отрицательное число")
  For i = Len(x) To 1 Step -1
    If Mid(x, i, 1) Like "[0-9]" Then MsgBox "Первая цифра числа:" & x & vbCrLf & "равна:" & CInt(Mid(x, i, 1)): Exit For
 Next
End Sub

Sub test3()
  x = Application.InputBox(" Введите положительное или отрицательное число")
  MsgBox "последняя цифра числа:" & x & vbCrLf & "равна:" & CInt(Right(x, 1))
End Sub

Sub use()
Dim i%, j%, i1%
i1 = Range("Q" & Rows.Count).End(xlUp).Row
j = Application.InputBox(" сколько цифр выделить")
For i = 1 To i1
Range("R" & i).Formula = "=yyy2(Q" & i & "," & j & ")"
Next
End Sub

Function yyy2(x$, Optional j% = 3)
With CreateObject("VBScript.RegExp"): .Pattern = "\d{" & j & "}$"
If .test(x) Then yyy2 = .Execute(x)(0)
End With
End Function