Extract words/numeric after each specific word

A simple UDF would make it easy and tidy:

Public Function SplitText(text_to_split As String, delimiter As String, instance As Integer)
    On Error GoTo ErrNA
    If instance - 1 > UBound(Split(text_to_split, delimiter)) Then
        SplitText = CVErr(xlErrValue)
    Else
        SplitText = Split(text_to_split, delimiter)(instance - 1)
    End If
    Exit Function
ErrNA:
    SplitText = CVErr(xlErrNA)
End Function

The use the following in range B2:I3

Formula:

=SplitText($A2,"#~#",COLUMN()-1)