How to import a csv file to excel and column A imported as text

Question

With the help of the awesome members of the site I finely have the following working code:

Private Sub Imprtstckbtn_Click()
Dim vR(), vDB
Dim WbCSV As Workboo