Reformat Text In Single Column To Rows Using Delimiter

I am trying to convert text to rows but in the same column Take the following example:

Column A:
1-2-3
ab-cde-fg
54-ty-12345
the
waht i am looking is convert it to the following format: (the - is the delimiter)
Column A

1
2
3
ab
cde
fg
54
ty
12345

i have found the following VBA code on those forums but i don't know how to edit it to suit my needs

Sub Txt_To_Rows()
Dim arrText() As String
Dim varItm As Variant
Dim rngText As Range
Dim rngCl As Range
Dim i As Integer
Dim j As Integer
Dim x As Integer
Set rngText = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
j = 2...........................