Try This
Dim RR As Object
Dim excel As Object
Try
RR = GetWorksheet(Handle, WorkBookName, WorkSheetName)
RR.Activate()
excel = RR.Application
RR.UsedRange.Select()
excel.Selection.TextToColumns (DataType:=1, ConsecutiveDelimiter:=True,Other:=True,OtherChar:=Delimiter)
Success = True
Catch e As Exception
Success = False
Message = e.Message
End Try