Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(ExtractData("C1126434RE-MI-100456")(2))

    End Sub

    Function ExtractData(ByVal reference As String) 

        return reference.Split("-")

    End Function

End Module