Dim maxid As String = "0"
If getstring.Contains(",") Then
Dim str() As String = Regex.Split(",",getstring)
Dim highestidlist As List
highestidlist.Initialize
For i = 0 To str.Length - 1
Dim str2() As String = Regex.Split(":",str(i))
highestidlist.Add(str2(1))
Next
For i = 0 To highestidlist.Size - 1
maxid = Max(maxid, highestidlist.Get(i))
Next
End If
maxid = maxid + 1