Dim Woerter As Variant
    Dim Text As String
    Dim i As Long
 
    Text = "ich-will-getrennt-werden"
 
    Woerter = Split(Text, "-", , vbTextCompare)
 
    For i = LBound(Woerter) To UBound(Woerter)
        MsgBox Woerter(i)
    Next