menampilkan hasil yang diambil mulai dari angka ke 5 dari suatu deret bilangan yang diinputkan

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