Menampilkan angka dari deret lima sesuai inputan

Imports System.Console
Module Module1

    Sub Main()
        Dim a, b As Long
        Dim c As Integer
        Write("Menampilkan Angka Ke-5 dst")
        WriteLine()
        WriteLine()
        Write("Input : ")
        a = ReadLine()
        WriteLine()
        b = (Len(a))
        Write("Hasil : " & Mid(a, 5, b))
        ReadKey()

    End Sub

End Module