This should work:Dim strSplit() As String
strSplit = Split("9853911264,W-AMR,3,2:320:0:52,MAIN STORE,3.57,0,18,001.004.041,0,0*75", ",")
Dim intSplit As Integer
For intSplit = 0 To UBound(strSplit)
Select Case intSplit
Case 0
Me.SerialNbr = strSplit(0)
Case 2
Me.Alert =...