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