Dim strTarget As String 'Here fill with your string
Dim strFind As String = "|"
Dim strArray(Len(strTarget)) As Double 'to hold string position of "|"
Dim iCount As Integer 'To control loop
Dim iCount1 As Integer 'To control number of "|",s
For iCount = 1 To Len(strTarget)
If Mid(strTarget, iCount, 1) = strFind Then
iCount1 = iCount1 + 1
strArray(iCount1) = iCount ' Record string position of "|"
End If
Next
Dim ctl As Control
Dim iCount As Integer = 0
Dim iNum As Double ' to hold value you require to be
exceeded
If Val(Trim(Mid(strTarget, CInt(strArray(11)), CInt(strArray(12) - strArray(11))))) > iNum Then
For Each ctl In Me.Panel1.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = Trim(Mid(strTarget, CInt(strArray(iCount)), CInt(strArray(iCount + 1) - strArray(iCount))))
iCount = iCount + 1
If iCount>12 then Exit For
If iCount = 4 Then iCount = 8
If iCount = 10 Then iCount = 12
End If
Next
End If