VBA: How to Convert Text to Columns with Semicolon

Question

How to Convert Text to Columns with Semicolon.

My excel has ";;", I need to show one empty cell when I Convert Text to Columns.

Example:

After run VBA and I need to show like this below:

Answer 1

Please See Thee Bellow Mention Code

Sub SplitName()

Dim txt As String

Dim i As Integer

Dim fullname As Variant

txt = ActiveCell.Value

fullname = Split(txt, ";;")

For i = o To UBound(fullname)

Cells(1, i + 1).Value = fullname(i)

Next i

End Sub