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