Extracting text using regex

Try this :

Imports System.Text.RegularExpressions

Module Module1

Sub Main()
    ' The input string.
    Dim value As String = "ABC+DEFG:3+1234119006789:11+1234566789098:11+112345:1234+522++ORDERS"

    ' Invoke the Match method.
    Dim m As Match = Regex.Match(value, _
                                 "\d{13}:\d{2}", _
                                 RegexOptions.IgnoreCase)

    ' If successful, write the group.
    If (m.Success) Then
        Dim key As String = m.Groups(1).Value
        Console.WriteLine(key)
    End If
End Sub

End Module