Sub check_split()
Dim iden As String
Dim element As Variant
iden = "1-SWFEED-4.6.14_10_3_C"

For Each element In Split(iden, "_", 3)
    MsgBox element
Next element

End Sub