Deleting Columns

Hi I've got 2 codes here,

This:

Delete_Info = Delete_Column.Text
Call DelColumn(Delete_Info)

Will call the sub procedure:

Sub DelColumn(Delete_Info)

    Columns("Delete_Info:IV").Select
    Selection.Delete Shift:=xlToLeft
End Sub

It doesnt work. The main purpose here is to delete a few columns all the way to the last column of the file. The initial column to be selected will be from "Delete_Column.Text" (A textbox entered by a user) all the way to column IV.

So is anyone here able to help me? I will try to provide more info if needed.
Thanks